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1.0 ABSTRACT 


THIS PROGRAM PERE ORNS PART 2 oF THE RKB11/RKOE EoGtn of FE VERIFICATION 
TESTS. WHICH PROVIDE A FUNCTIONAL aSTeKEDOUN eee 3! ef 
INCLUDING THE UNT 
i FART 2 EMPLOY 

RENORY ADDRESSING AND DATA CYCLE CONTENTION 


TRAN The, 
TY Ekov toed i$ reSERSLAON, imag OF AYE Wieross erent Alp 


WITHIN THE vaBIOUS § SUBS YS TEN TESTS EMPHASIS IS GIVEN TO USEFUL SCOPE 
SPECIFICATION OF TEST PARAMETER VALUES. AT THE 
BEGIIONG OF TESTING, THE FOLLOWING OPTIONS MAY BE SPECIFIED BY THE 


RKE11 REGISTER ADDRESS 
RODRESS 


SeSt Nepations 
ISK ADDRESS ON TRANSFERS 


TERNS USED 
ME BETWEEN OPERATIONS 


T 
IN ADDITION, STANDARD SWITCH REGISTER OPTIONS ARE PROVIDED, FOR A 
VARIETY OF PROGRAM LOOPING, RUNNING, AND REPORTING MODES. 


ERRORS WILL BE REPORTED AS THEY OCCUR. THE REPORT WILL INCLUDE A TEST 
NUMBER AND DESCRIPTION, CURRENT AND PREVIOUS OPERATIONS, GOOD AND BAD 
TEST DATA, AND APPLICABLE DEVICE REGISTER CONTENTS. 


( 
R 
INITIAL 
DATA a 


2.0 HARDWARE REQUIREMENTS 


2.1 REQUIREMENTS FOR SUBSYSTEM TESTS 


THE FOLLOWING HAROWARE IS REQUIRED TO RUN PART 2 OF THE SUBSYSTEM 
VERIFICATION TESTS: 


apy nN 10 MFG. ONLY),20,34,35,40,45,50,70 OR PDO 


i 
CONSOLE TELETYPE 
“ ates CONTDOLLER (RKB11) 


RKO ORIVES 
1 TO 8 RKOG DISK CARTRIDGES (FORMATTED IN 20 OR 22 SECTOR FORMAT) 


2.2 REQUIREMENTS FOR HEAD ALIGNMENT AID 
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RODITIONAL HARDWARE IS REQUIRED BY THE RKO& HEAD ALIGNMENT AID: 
atte pe De > POX 1 eesti SECTION THEREOF ) 
BRE Be HEAC AL BE TGNMENT O0L 


3.0 PRELIMINARY PROGRAM REQUIREMENTS 


BEFORE RUNNING THE SUBSYSTEM VERIFICATION — PROGRAM, THE KEL 
CONTROLLER DIAGNOSTIC (MAINDEC-11-DZRGA THRU DZREE AND OZREK) AND RKO 
DRIVE DIBGNOSTIC (MAINDEC™11-OZRGH THRU bones) Sree FIRS? BE RUN Te 
RESOLVE BASIC, SOLID HARDWARE FAULTS. 


4.0 GENERAL PROGRAM CONSIDERATIONS 


4.1 SYSMAC 
Ma tR ate USES PORTIONS OF THE SYSMAC DIAGNOSTIC sySTEM MACRO 


4.2 XXDP 


THIS PROGRAM MAY BE LOADED oer XXOP. athe aed 1-6 MAY BE RUN 


ce OR DUMP MODE, BUT THE ALIGNME Y BE —_ IN OUMP 


4.2.1 CHAIN MODE 


THIS PROGRAM IS DESIGNED TO BE RUN IN THE DEFAULT MODE WHEN CHAINED 
UNDER XXDP. THUS, INPUT DIALOGUE IS BYPASSED, AND RKOG UNIBUS ADDRESS 
AND INTERRUPT VECTOR ARE DEFAULTED TO STANDARD V DRIVES 
PRESENT AND READY WILL BE TESTED WITH THE EXCEPTION OF DRIVE 5. IF THE 
RKD& CONTAINS THE XXDP MEDIUM 


4.2.2 DUMP MODE 


THE PROGRAM CAN BE RUN IN DUMP MODE, WITH OR WITHOUT DEFAULT 
aid Wee tal p MAY BE TESTED, BUT IF IT CONTAINS THE XXDP 
MEDIUM, THE OPERATOR MUST REPLACE THE 'XxXDP PACK WITH A FORMATTED 
CERATCH PACK BRTOR TO TESTING (OR AN ALIGNMENT CARTRIDGE IF ALIGNMENT 
IS TO BE DONE ON DRIVE 0). A MESSAGE WILL INFORM THE OPERATOR WHEN 


SES COE 
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THIS IS NECESSARY. 


4.3 ACT/APT 


THE PROGRAM IS COMPATIBLE WITH ACT/APT CONVENTIONS. SUBSYSTEM TESTS 
1-& MAY BE RUN IN eae OR DUMP MODE, AND THE HEAD ALIGNMENT AID 


MAY ONLY BE RUN IN DUNP 


4.3.1 AUTOMATIC MODE 
THE PROGRAM PROVIDES FOR AUTOMATIC APT/ACT OPERATION. IN THIS MODE 


PARAMETERS REVERT TO DEFAULT VALUES, AND ALL DRIVES WHICH ARE PRESENT 
AND Y ARE TESTED. 


4.3.2 DUMP MODE 


IN DUMP MODE, PARAMETERS MAY BE INPUT, OR DEFAULTED, AND SUBSYSTEM 
TESTS 1-6 OR HEAD ALIGNMENT AID MAY BE RUN. 


4.3.3 APT ETABLE DEFINITIONS 


THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL 
TABLE (ETABLE) ENTRIES, VIA THE APT UTILITY PROGRAM : 


1. SOFTWARE ENVIRONMENT 
=1 IF APT SCRIPT MODE 
=0 IF STANDALONE MODE 


2. ENVIRONMENT MODE BYTE 
BIT 7 = 


=1 ETABLE DOES SIZING 
= 0 PROGRAM DOES SIZIN 
BIT&=1 OOL MESSAGES TO APT IF SCRIPT MODE 
= ae ON’ T ze 08 TQ APT 
BITS =1 UPPRESS CONSOLE OUTPUT 
= 0 ALLOW CONSOLE OUTPUT 
BITS 4-0 NOT USED 


3. SWITCH 1 (SOFTWARE SWITCH REGISTER) 

IF ENVIRONMENT MODE BIT 7 (SIZING BIT) IS SET TO 1, THE SOFTWARE 
WILL BE. USED, INSTEAD OF THE HARDWARE CONSOLE 

ER. REGARDLESS OF “WHICH U L Bits 

DEFINED IN SECTION 6.2 (SWITCH REGISTER OPTIONS) MAY USED WHEN 

RUNNING IN| STANDALONE MODE. 

iN AT SCR] T MODE, HOWEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS BE 


SEG 0097 
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3 

BE 

320 4, SWITCH 2 (USER SWITCH REGISTER) 

21 NOT USED 

4 

323 5. MEMORY TAPES 1-4 AND MAX MEMORY ADDSSSSES 

324 NOT USE 

336 &. INTERRUPT VECTOR 1 

27 USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 210 

323 BUS PRIORITY 

320 ge8 WHEN ORS TRONMENT MOCE BIT 7 = 1. DEFAULT = 5 

332 8. INTERRUPT VECTOR 2 

#33 NOT USED 

335 9. BUS PRIORITY 2 ee 

23 NOT USED «Dida 
| 338 10. BASE ADDRESS 
| 338 USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440 
j 

341 
| 342 teen ees ACE VT RONMENT MODE BIT 7 = EACH BIT SET TO 1 IN SITS 

343 0-7 itt SELECT THE CORRESPONDING pRivE TO BE TESTED. 
an BITS 8-15 ARE NOT, USED. ; rey 
bs Se , 3 
| Bu? 
| se 4.4 DUAL-ACCESS 

350 THIS PROGRAM DOES NOT UTILIZE DUAL-ACCESS. FOR THE PURPOSES OF ALL 
| «6. 36] TESTS (1- HEAD ALIGNMENT ECTI THE OPERATOR 
bi- See MUST GUARANTEE THAT THERE IS NO INTERFERENCE FROM THE UNUSED PORT. IF 

363 FAILURES ARE ENCOUNTERED IN TESTS 1-6 DUE TO INTERFERENCE FROM THE 
| 34 OTHER PORT, THE OPERATOR IS ADVISED TO SWITCH THAT PORT OFF-LINE AND 
| 365 RE-RUN THE’ TESTS. 

356 
| 357 

356 
| #3 4.5 MEMORY MANAGEMENT 
coer, Ser THIS PROGRAM SUPPORTS MEMORY MANAGEMENT OPTIONS KT1IC,D AND PODP11 
|. 365 FOR THE PURPOSES OF TESTS 2-4 ONLY. IN THESE TESTS ‘SEE SECTION 9. % 
-363 DIRECT ACCESS TO ALL OF PHYSICAL MEMORY ABOVE PROGRAM IS 
| 364 EXERCISED. FOR THE DURATION OF THESE 3 TESTS, MEMORY MANAGEMENT T5 
| Ses ENABLED. IN ALL OTHER TESTS, AND DURING THE USE'OF THE HEAD ALIGNMENT 
366 AID, MEMORY MANAGEMENT IS DISABLED 

368 

369 
| 270 4.6 MEMORY PARITY CHECK 


372 IF THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, ALL 
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TE aE RcaTe IS Oar WITH PARITY CHECK ees PARITY ERRORS ARE 
BEVIN VBE" UMWR AGT AEDES "E OVTE ARELED PONT 


_ 4.7 BAD SECTORS 


erkorn TQ A on tne SWITCH OPTION (SEE SECTION 8.2.4.2 ) THE BAD 

SECTOR FILE H DRIVE TO BE TESTED IS a AT THE CONSOLE PRIOR 

tp hs NG. secfit ara ERRORS OCCURRING IN THE PROGRAM ARE MASKED OUT 

PeTione) ON SECTORS DESIGNATED AS BAD, (BY EITHER FACTORY OR 
< 


4.8 EXECUTION TIME 


EXECUTION TIME IS DEPENDENT UPON PARAMETERS INPUT BY THE OPERATOR 
(SUCH AS STALL TIME OR TTERATION COUNT), AND TO A GREAT DEGREE UPON 
THE AMOUNT OF MEMORY. HOWEVER VERAGE TIME” REQUIRED TO RUN A 
QUICK VERIFICATION (FIRST Bases IS i MINUTES (FOR A SYK SYSTEM). A 
SUBSEQUENT pass WITH PARAMETERS DEFAULTED REGUIRES 3 MINUTES PER DRIVE 


5.0 PROGRAM LOADING 


THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR 
FROM ANY MEDIA SUPPORTED BY XXDP. 


6.0 STARTING PROCEDURE 


6.1 STARTING ADDRESSES 


200 NORMAL STARTING ADDRESS OF TESTS 1-6 (PARAMETERS DEFAULTED) 

204 SELECT OPERATING PARAMETERS,RKO& UNIBUS ADDR. AND INTERRUPT 
VECTOR FOR TESTS 1-6 

224 HEAD ALIGNMENT ard START ADDRESS 


NOTE 


Hee ALIGNMENT AID a li 
TNORNAT in PLEASE SKIP 10 SECTION 1 

THE SECTIONS WHICH IMMEDIATELY POLLO 
APPLY ONLY TO THE SUBSYSTEM TESTS (1-6). 
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6.2 SWITCH REGISTER OPTIONS USED 


THIS PROGRAM SIG L T HAROWARE SW 
meets TER IF PrSERT Re ney SHac=SUBEORTED SOF THERE SWITCH Reet 

T_PR RESEN NT OR I L ONES). IN Ef 
case, THe THE Foltoule BPTIONE ARE IMPLEMENTED WHEN THE APPROPRIATE 


HALT ON ERROR 
LOOP _ON TEST 
INHIBIT ERROR REPORTS 
REPORT DESCRIPTION ONLY, ON ERRORS 
INHIBIT ITERATIONS 
BELL ON E 
LOOP ON ERROR 
APPLY RANDOM STALL SETWEEN OPERATIONS 
REPORT ONE ERROR PER TRANSFER IN TESTS 2-4 
INHIBIT WRITES IN TEST 1 
REPORT ALL SOFTWARE COMPARE ERRORS IN TESTS 2-4. 


Ce be ' 


ooo 


NOTE 


FOR ADDITIONAL PROGRAM CONTROL OPTIONS 
SEE DESCRIPTION OF CONTROL SWITCH WORD 
(CS), SECTION 8.2.4.2 . 


7.0 OPERATOR ACTION 


LOAD ene Fre MEMORY (SEE SECTION 5.0 
LOAD A FORMATTED PACK ON EACH DRIVE TO BE ‘Test ED. 
abla DRIVE (‘S) TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON 


PORT 

LOAD THE DESIRED STARTING ge {Ses SECTION 6.1) 
SET SWITCHES IF DESIRED (SEE SECTI 

PRESS START OR GIVE APPROPRIATE MON? Toe START COMMAND. 


Ou £ wre 


8.0 PROGRAM ACTION 


8.1 DESCRIPTION OF OPERATING PARAMETERS 


AFTER THE PROGRAM IS STARTED, IT TYPES 17 IDENTIFICATION AS FOLLOS: 
“DZREN-C- RK1I/RKOB SUBSYSTEM VERIFICATION: PART 
“LAST PHYS MEM ADRS=XXXXXXXx". THEN, EITHER THE TESTS’ SEGIN EXECUTION 
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487 WITH DEFAULT PARAMETERS, OR AN OPERATOR INTERACTIVE MODE IS ENTERED 
ues (SEE STARTING RODRE SSE 5. onset ION IN THIS MODE eleere ie 
48S P PNET ERS MAY L TERED y vartote MEANS. 
436 ARE TREATED AS OCTAL RUMBERS, D THE PARAMETER LIST 1S SHARED AMON 
431 THE TESTS. 
493 THE FOLLOWING IS THE LIST OF OPERATING PARAMETERS, (WHICH APPLY TO THE 
44 CURRENT SELECTION OF DRIVES A TESTS) AFTER ERCH IS INDICATED THE 
485 Val 1 RANGE OF VALUES FOR THAT PARAMETER (IN OCTAL), AND ITS DEFAULT 
49é ALUE. ALL PARAMETERS ARE ENTERED aS OCTAL NUMBERS’ AND THE PARAMETER 
432 MNEMONICS SHOWN ARE THOSE USED BY THE PROGRAM. 
499 FC FIRST CYLINDER ADDRESS IN TESTS WHICH ARE DONE OVER A 
Oc RANGE OF CYLINDERS, FC=0-631, DEFAULT=0 
502 LC LAST CYLINDER ADDRESS IN TESTS WHICH ARE DONE OVER A 
203 RANGE OF CYLINDERS, LC=0-S32, DEFAULT=632 
E05 FT FIRST TRACK ADDRESS IN TESTS WHICH ARE DONE OVER A 
oe RANGE OF TRACKS, FT=0-2, DEFAULT=0 
508 LT LAST TRACK ADDRESS IN Tests WHICH ARE DONE OVER A RANGE 
505 OF TRACKS, LT=O0-2, DEFAULT=2 

¢ 
E11 SO FIRST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER A 
512 .. RAN C USED ON ANY DRIVE WHICH HAS A 
eis 20-SECTOR FORMAT CARTRIDGE. SO=0-23, DEFAULT=0. — 
cis Si LAST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER A 
516 ANGE OF SECTORS USED ON ANY DRIVE WHICH HAS A 
517 20-SECTOR FORMAT CARTRIDGE. $1=0-23, DEFAULT=23. 
519 Se FIRST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER A 
559 RANGE OF SECTORS, USED ON ANY DRIVE WHICH HAS A 
el 22-SECTOR FORMATTED CARTRIDGE, S2=0-25, DEFAULT=0. 
523 : $3 LAST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER @ 
5o4 RANGE OF SECTORS, USED ON ANY DRIVE WHICH HAS A 
=E5 22-SECTOR FORMATTED CARTRIDGE. $3=0-25, DEFAULT = 25. 
527 ‘ PT DATA PATTERN SELECT WORD (SEE SECTION 9.2.4.1 FOR 
eee DETAILS) PT=0-177777, DEFAULT=0 
£30 cs CONTROL SWITCH WORD (see SECTION 8.2.4.2 FOR DETAILS) 
ze €S=0-000062, DEFAULT= 
Cc 

£33 ST NUMBER OF UNIT STALL TIMES WITH WHICH TO STALL (DELAY) 
et BETWEEN RKO& COMMANDS 
4 
537 


S3e 8.2 SELECTION OF OPERATING PARAMETERS (ADDRESS 204 START) 


OOOO 
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8.2.1 DRIVE SELECTION 
AFTER AN OS 204 START, THE PROGRAM INDICATES 1 


PARAMETER INP T MODE". THEN, THE RKG11 REGISTER ANE RESe By ob ectoe 
Rece Ro RK PRIORITY OPENED bof POSSIBLE ROstF Tce 


RKO& BUS ADR = 177440 NEW=(TYPE NEW VALUE HERE) 
RKO& VEC ADR = 210 NEW=(TYPE NEW VALUE HERE) 
RKO& PRIORITY= S NEW=(TYPE NEW VALUE HERE) 


NEXT THE PROGRAM TYPES THE NUMBER(S) OF THE CURRENT ORIVES UNDER TEST 
Pee BY A (*) ON THE NEXT LINE TO REQUEST NEW DRIVE NUMBERS. FOR 


PARAMETER INPUT MODE 


DRIVE (S)=0, 1 
(INPUT, te’ By: ” GOES HERE ) 


THE OPERATOR TYPES THE NEW NUMBERS (SEPARATED BY COMMAS) PLUS <CR> OR 
SIMPLY <CR> TO LEAVE THEM UNCHANGED. IF HE EN Mi Bethel NUMBERS 

THESE DRIVES ARE THEN CHECKED FOR VALID STATUS BY THE PROGRAM, AND ALL 
THOSE TYPED WHICH ARE eee WILL NOW BE LISTED AS BEFORE. THE 
OPERATOR MAY MANUALLY RECONFIGURE THE DRIVE DRIVE 
NUMBERS, AND THESE WILL BE CHECKED AND TYPED. “UNTIL THE OPERATOR 
FINALLY” TYPES JUST <CR>. 


oN INITIAL ENTRY FROM ADDRESS 204, THE DRIVES WHICH ARE LISTED ARE ALL 

THE SYSTEM WHICH ARE ON-LINE, READY, WRI TE “ENABLED, AND 
(ORBED aITH A CARTRIDGE OTHER THAN AN ALIGNMENT PACK. (THIS IS* THE 
DEFAULT DRIVE SELECTION FOR RODRESS 200 oT) ON ALL OTHER ENTRIES 
T6 THE DRIVE SELECTION ROUTINE (VIA <?C> ef, DESCRIBED IN SECTIONS 


Lin TEST ALL DRIVES TYPE “A” <CR>, ELSE <CR> 
* (CHARACTER GOES HERE) 


THE DRIVES ARE LISTED AS SHOWN ABOVE. IF (A) IS TYPED, ALL 
AeartABLE DRIVES WILL BE LISTED, AND IF NOT, THE PREVIOUS SELECTION OF 
DRIVES WILL BE LISTED. 


8.2.2 TEST SELECTION 


WHEN THE OPERATOR FINALLY TYPES JUST <CR> IN RESPONSE TO THE DRIVE 
REQUEST. THE PROGRAM ENTERS THE TEST INPUT ROUTI THE FOLLOWING 
INSTRUCTIVE LINES ARE TYPED : 


L = LIST TESTS 
¢ = CHANGE TESTS 
I INPUT PARAMETERS AND RUN TESTS 


SEG 0012 
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595 

235 

598 THEN, THE FOLLOWING REQUEST IS MADE : 

600 ENTER L,C 

ec z (ERARACTER ches HERE) 

Eo: THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>. 

605 \ 

506 

eo2 8.2.2.1 LIST TESTS, (L) 

609 IF (L) IS TYPED, THE PROGRAM TYPES THE CURRENT DESIRED TEST LIST, AS 
£10 FOLLOWS : 

612 TEST ITERATIONS 

13 1 

614 2 177777 

615 3 400 

SIE 4 25 

a ys 

£19 THE_ITERATION NUMBER 1S THE NUMBER OF TIMES THE TEST WILL BE RUN 


ON 
P hay MUST BE BETWEEN 9 AND 177777. IF IT IS ZERO, THAT 


£59 HiS P 
621 tes? WILL NOT roe R ON THE FIRST TIME THROUGH, ALL TESTS ARE LISTED 
| bce WITH DEFAULT ITERATIONS (YET TO BE DETERMINED). 
oo WHEN THE LIST IS COMPLETED, THE PROGRAM RETURNS TO TYPE : “ENTER L,C, 
| ees OR I” AGAIN. 
| 637 
| 638 fica: 
| be3 8.2.2.2 CHANGE TESTS, (C) 
| 631 IF _(C) IS TYPED, THE PROGRAM THEN ASKS: “TO DEFAULT TESTS TYPE D<CR> 
| bse ELSE <CRo”. tf JUST <CR> IS TYPED, THE PROGRAN SEQUENTIALLY OPENS 
(633 > EACH TEST FOR POSSIBLE ALTERATION OF THE ITERATION NUMBER. EACH 
BH IS OPENED AND A NEW LINE IS TYPED, GIVING THE TEST NO. AND ITER. iM 
635 IN OCTAL, FOLLOWED BY (*) ON THE SAME LINE. FOR EXAMPLE : 
ot ae TEST ITERATIONS 
638 0 OQ * (INPUT, IF ANY, GOES HERE) 
£40 THE OPERATOR THEN TYPES THE NEW VALUE PLUS <CR>.; OR nation TO LEAVE 
£41 IT UNC a OPERATOR TYPES A NOMBER FOLLOWED BY <!> 
42 (EXCLAMATION POINT), THE NUMBER JUST ENTERED WII BE LOADED INTO THE 
643 ITERATION TABLE FOR ALL REMAINING TESTS. AFT ER ALL TESTS HAVE BEEN 
e OPENED, THE PROGRAM RETURNS TO TYPE : “ENTER LC, ORI" 
BYE e 
647 
ee 8.2.2.3 INPUT PARAMETERS AND RUN TESTS, Dy we 


650 IF (I) IS TYPED, THE PROGRAM ENTERS THE PARAMETER LIST ALTERATION 
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€.2.2.4 CONTROL 2 (t2) FUNCTION 
? 


F THE OPERATOR WISHES TO EXIT AT ANY TIME FROM L OR * MODE 
RETURN TO SELECT A NEW MODE (L,C, OR I), CONTROL 2 (#2) MAY BE ype 


8.2.2.5 CONTROL C (tC) FUNCTION 


IF THE OPERATOR WISHES TO TERMINATE L,C, OR I MODE, GND RETURN TO 
REQUEST NEW ORIVES AND TESTS, CONTROL é’c#C) MAY BE TYPED. 


8.2.3 PARAMETER LIST ALTERATION 
THE PROGRAM. NEXT TYPES THE FOLLOWING INSTRUCTIVE LINES: 


Ts ~ 

0 = OPEN LIST 

S = SET INoTVIDUAL PARAM. 
Rs an ore S 

ENTER T OR R 


ER ARASTER GOES HERE) 
THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>. 


Pes 8.2.3.1 TYPE LIST, (7) 
IF (T) IS TYPED, THE PROGRAM TYPES THE CURRENT PARAMETER LIST, 9S 
FOLLOWS: 


i 


FC = XXXXXX 
B+ XXXXXX 


oy ae 3st IS COMPLETED, THE PROGRAM RETURNS TO TYPE “ENTER 1,0, Ss, 


YOM MOM moT oT 
SPD RR PORES 


8.2.3.2 OPEN LIST, (0) 


{ee (0) Be oR TYPED BY Parana Le ask: cone TE pen. ALL THE eee 


SEQUENTIALLY’ OPENS EACH OPERATING PARAMETER IN THE reST FOR ALTERATION 


Jie 
PERE 


NN 
mins 


ee eee ee ee 





‘eee ee ee tee ee 
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(pdRéNC. Fil” oos-ocf-re I : 
=45 

ee 

|} 720 (IN THE ,QRDER a Eo Peace ee EACH PARAMETER 1S OPENED AND 

' fil . 

| Pig ORAL}, FOLLOME Sine LINE. FOR EXAMBLE 

| 2s IC=3 # (INPUT, IF ANY, GOES HERE) 

| 736 E OPERATOR THEN TYPES THE NEW VALUE PLUS 8 brea al at (oR de 

| 2a Be ALTERATION. THE PROGRAM RETURNS. ie tae IN. 

| fas 

| 20 

res 8.2.3.3 SET INDIVIDUAL PARAMETER, (S) 

| 7 IFS) 1S TYPED, THE PROGRAM TYPES THE PRONPTER (>) ON THE NEXT LINE, 

| . 75 ANd FOR’ THE OPERATOR 10 SET THE VALUE OF ANY INDIVICUAL 
72 BORANETER: 

ome 

| 7g ENTER T,0,S, OR 

| 7 > (ENTER PARAMETER AND VALUE HERE) 

EL: ae THE OPERATOR TYPES THE PARAMETER AND ITS NEW VALUE FOLLOWED BY <CR 
733 QND THE PROGRAM GIVES THE PROMPTER (>) AGAIN AS IN THE FOLLOWING 
o5e EXAMPLE: 

7% > FC = 600 
730 » FS = ile 
738 2) ee 

| 73 =e #e 
74] TO_TERMINATE INDIVIOUAL SETTING MODE, THE OPERATOR TYPES CONTROL 2 
oe (#2), AND THE PROGRAM RETURNS TO TYPE “ENTER T,0, S, OR R®™ AGAIN. 

Pa 

745 

. €.2.3.4 RUN TESTS, (R) 

he! 

74e IF THE OPERATOR TYPES (R), EXECUTION OF TESTS BEGINS, USING ALL THE 
748 CURRENT PARAMETERS. 

756 

751 

752 

7: €.2.3.5 CONTROL 2 (tZ) FUNCTION 

755 If THE OPERATOR WISHES TO EXIT AT ANY TIME FROM 7 ,_ OR_ R MODE 
75E UNNING TESTS) ANG. RETURN TO" SELECT NEW MODE IT,O°S, OR RI, 
a CONTROL 2 (12) MAY BE TYPED. 

755 

760 


761 8.2.3.6 CONTROL C (tC) FUNCTION 
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762 
| 3s — RoE REPRESS UPS AGSECOMTE Oa Oe eB donb TE 
f . - 
Pie: oe : Ree UEST New DRIVE. SELECTION Ng ne CON 
768 | BULT RUN, TYPING C CONTROL c see “rae Bachan 10 Hei? 
755 BETER COMPLETING ANY DATA’ TRANSF 
(€ 
273 8.2.4 SPECIAL PARAMETER SPECIFICATIONS 
| os 
|B 
| ce 8.2.4.1 PT-DATA PATTERN SELECT WORD 
| wa THE OPERATOR SPECIFIES A WORD OF SIXTEEN BITS (6 OCT. _ DIGITS). 
780 SELECT UP BLL SIXTEEN OF THE PATTERNS, LISTED IN SECTION 3.5. 1 
781 THE NO. OF ANY BIT SET-IN PT. CORRESPONDS 10° THE” NO. OF A PRITERN 
cre 2 CHOSEN. IF THE HIGH BIT OF PT (BIT 15) IS SET, THE USER WILL BE ASKED 
| 783 To TYPE UP TO SIXTEEN DATA WORDS WHICH WiLL BE LOADED INTO THE SUFFER 
| oe FOR PATTERN 15. THE PROGRAM TYPES: 
Fe “SELECT USER DEFINED PATTERN 15" 
ze NEXT, EACH OF UP TO 16 WORDS ARE REQUESTED BY THE PROGRAM IN THE SAME 
788 MANNER IN WHICH THE OPERATING PARAMETERS ARE OPENED FOR ALTERATION 
| 730 (SEE SECT. 8.2.3.2): 
| 7a * . + WORD O = (OLD VALUE) # (NEW VALUE GOES HERE) 
| 733 ‘WORD 1 = (OLD VALUE) * (NEW VALUE GOES HERE) 
oe ETC. 
| 7% FOR EACH WORD, THE USER TYPES THE NEW VALUE PLUS <CR>, OR JUST _<CRo, 
(TQ LEAVE IT UNCHANGED). TO INPUT LESS THAN 16 WORDS FOR PATTERN 15, 
THE OPERATOR MAY TYPE (!) (EXCLAMATION POINT) AND PROGRAM WILL 
| Troe THE PATTERN 15, BUFFER WITH THE LAST WORD 


FILL UP THE 
SPECIFIED. NEXT, THE PROGRAM WILL CONTINUE, IN THE PROPER PARAMETER 
INPUT MODE (0 OR’S). 


8.2.4.2 CS- CONTROL SWITCH WORD 


g 
IN ADDITION TO THE OPTIONS PROVIDED BY THE SWITCH REGISTER (HARDWARE 

£0 OR SOFTWARE). CONTROL SWITCH WORD (CS) MAY BE SPECIFIED AMONG T 
g03 OPERATING PARAMETERS TO PROVIDE THE FOLLOWING OPTIONS: 
ii T OPTION 
u BIT OPTION 

43 
214 os DROP DRI DRIVE IF 20 (DEC) ERRORS EXCEEDED 
gis a4 ECTOR FILES (BSF°S) ON FIRST PASS) 
Ele 01 INMIBTT OFFSET REPORTS IN TEST 1 


/ MD-2) 


= 
 —— 


ee ee 2 eee 


TRENC.F 


maa 
do Cube > Ht tote 


Mw 


cococo 


RARTMIRTAT RSA 


DZREN-C 
Pil 


yess. 


VERIF. 
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NOTE 
OTHER BITS UNUSED 


8.3 DATA PATTERNS 


THIS SECTION a a 3 DATA gg AVAILABLE FOR USE IN THE 

TESTS. EACH DAT TTERN IS COMPRISED OF 16 a on he i ARE 
REPEATED AS NECESSARY. ki Sie A THE DESIRED WORD COUN THE WRITE 
ably COMMANDS. THE MAXIMUM WORD SOuNT IS RETERNINES ‘BY THE 
MOUNT OF AVAILABLE purr MSpace AT 


HE END OF THE PROGRAM, AND COULD 
BE AS LARGE AS 65.536 (DEC) WORDS. 
IS THUS POSSIBLE DURING THE DATA TEST 


pete SPIRALING AND TRACK SWITCHING 
THE FOLLOWING IS THE LIST OF 16 SELECTABLE DATA PATTERNS 


I (IN OCTAL), 
WITH NOTABLE FEATURES DESCRIBED: 














MO-11-DZREN-C 
DZRENC.P11 





- RKE1LI/RKOG 


OS-0CT-76 10: 






S 
) 


UBSYS. 


7 


VERIF. : PART 2 


_ 0 


HIGH-LOW 
FREGUENCY MIX 


172765 


eaTat ei 
BOUNDARY PULSE 
BRE COMPENSATION 


Sol RR 
—TU 

ow 

£ 

x 


oO 
ate 


042213 
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; 


i 


HIGH FREQUENCY 
PHASE MIX 


 ; 
re ING 
CELL PULSE 

PRE COMPENSATION 


1 
132264 
055132 
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LOW FREQUENCY 
PHASE MIX 


000000 





MAX}! 
PRECOMPENS TION 
PHASE MIX 


177777 





SEG 0018 


ohe 


~— Ns 
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230 k.. ‘ Ly 
831 : 
8Se 
893 e 
ess wIFTED PRE TED C ALTERNATING ALTERNATING 
| Ba NPR 
3$ 
re : 
698 
e9s 000001 177776 0S2525 1eSeSe 
$00 000002 177775 0525 1eS252 
Oi 000004 17777 0S2Se5 125252 
| Ue CO0010 17776 0S5eSe5 leSeSe 
| $03 000020 177757 0S25e5 leSeS2 
904 000040 177737 0S2S25 125252 
$05 000100 177677 052525 125252 
| 000200 177577 ’ 02 1252Se2 
07 00040 177377 1 O52Se5 125252 
308 001000 176777 Ss. «052525 1eSeSe 
309 002000 175777 . Bess -. 1eSeSe 
$10 004000 l73/(r.—C ol‘. «~BesesCttCté- A See 
$11 010000 167777 052525 125252 = 
Sle 020000 187777 052525 leSeS2 ie 
$13 540000 77 052525 125252 
$14 100000 077777 0SeS2e5 125252 
| Sis f 
Sig 
$17 le 13 14 1S 
| 318 SHIFTING COMPOSITE PSEUDO- USER- 
aba O°S AND i’S ROTATING RANDOM DEFINED 
| Sei 1 072307 
S22 BOOS 135143 
| S23 00006 15646 
$24 000017 167230 
Ses 000037 073514 
| 326 077 O35646 
327 000177 016723 
928 000377 107351 
Ses 0777 143554 } ~ 
$30 001777 061672 +. 
3) 003777 030735 \ 
S32 7777 114356 
$33 017777 046167 
| $34 037777 123073 
3S 077777 151453 
S34 177777 1E4616 





(a 


02 
| oe 
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= or 
$38 
936 
a0 9.0 DESCRIPTION OF TESTS 
| as 
| a4 9.1 TEST 1 - OFFSET-TO-FAILURE MEASUREMENT 
IN THIS TEST A REPEATED PATTERN 072307(0CT) IS WRITTEN INTO ALL WORDS 
| ? OF SECTORS FS AND LS ON TRACKS O-2 OF CYLINDERS FC AND LC. THE SAME 
Set SECTORS ON ADJACENT CYLINDERS ARE THEN WRITTEN WITH 167230(0CT) (TO 
| $45 ESTABLISH A KNOWN PATTERN), BUT THEY ARE NOT TESTED. THEN, EACH 
$s DESIRED SECTOR IS WRITE CHECKED oiTH INCREASING POSITIVE "ortsers 
| 81 UNTIL EITHER A “DATA TYPE” ERROR OCCURS, OR THE FULL RANGE OF POSITIVE 
32 OFFSETS HAVE BEEN APPLIED. THEN, THE SAME SECTOR IS T SECHED 
353 _ WITH INCREASING NEGATIVE HEAD OFFSETS, UNTIL FAILURE OR MAXIMUM 
Sts NEGATIVE OFFSET IS APPLIED. THIS IS DO R ALL THE SECTORS 
ges _ ORIGINALLY WRITTEN, IN THE oF OLLOWING ORDER: SECTORS FS AND LS ON 
| 3sé CYLINDERS FC AND LC FOR TRACK 0, THEN FOR TRACK AND FINALLY FOR 
| 357 TRACK 2. THE OFFSET- ~TROFAILURE RESULTS ARE 1 pANTED IN ORDER OF 
a8 INCREASING TRACKS, AS FOLLOWS: 
360 OFFSET-TO-FAILURE MEASUREMENTS: 
| 2 TRACK CYLN SECT -OFST -OFST 
363 (UIN)  CUIN) 
se5 X XXX XX = XXKK = XXKX 
Sec X XXX XX  XXXK XXX 
| 966 XXX XX = XXXK XXX 
967 ETC, 
| 968 
369 
ao 3 NOTE 
$72 IN AN ADRS 200 DEFAULT RUN, FS DEFAULTS 
$72 TO 0, AND LS DEFAULTS TO 12:(0CT), FOR 
| 974 THIS TEST. 
975 
S7é 
| $77 
97¢ 
973 
a0 9.2 NPR / MAIN MEMORY TESTS 
982 THIS GROUP OF TESTS EXERCISES ALL MEMORY ABOVE THE PROGRAM, VIA 
SE2 READ/WRITE NPR TRANSFERS WITH THE RKOG. THE Tests ARE DESIGNED TO 
964 DIAGNOSE F EMORY TRANSFER FAILURES DURING HEAVY NPR ACTIVITY, IN 
ges SYSTEMS PROVIDED WITH MEMORY MANAGEMENT (KT 11 C, D OR POP 11/70), 
286 ALTHOUGH MEMORY MANAGEMENT IS NOT REQUIRED. . 
SEE 
25° NOTE 
$31 THERE IS NO PROGRAM RELOCATION (EXCEPT 
392 FOR THE XXDP OR ABSOLUTE LOADER, IF 
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2 2 b= be be he 
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fore 
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0+ b+ 02 & 2 b= 2 bb = BO 8 bo 8 2 2 bo be 2 0 Be 2 «ho Bo 2 8 ho Bs 0 be hs ee Fe he be he he ee hh he he 


22 
no 


= RK611/RK0 SUBSYS. 


OS-0CT-76 10:07 


VERIF. : PART 2 MACY11 27(1006) OS-OCT-76 10:59 PAGE 22 


PRESENT). ac teNce MEMORY Nu WHICH THE 
PROGRAM ALSO, 
THE NTBUS 1/0 ADDRESSES ARE NOT TESTED. 
IF IT DE E THAT THE LOADER BE 
BESTROYED, SO THAT ADDITIONAL neHORY MAY 
BE TESTED, LOCATION 170 (KILLDR:) MAY 
MANUALLY BE SET TO A NON-ZERO YALUE. 


THERE ARE 3 MEMORY tes PROVIDED. TESTS 2 AND 3 ARE TESTS OF MEMORY 
ADDRESSING ts a DURING DISK NPR’S, AND TEST 4 IS AN NPR/MEMORY 
DATA TMT eD. rs es) MAN: L 7 LED 


BAGe ADORESS REGISTERS. 


9.2.1 TEST 2 - NPR/MEMORY WORD ADDRESSING TEST 


Bian ne - a ae Teoria BU ‘gir FER (RABUF)," ORDTE UN GLE UMBES 


(STARTING Wier 1) INTO MERCH 

AMOUNT OF PHYSICAL UTES E NUMBERS REFLECT UNIQUE ADDRESSES 
WITHIN THE 64K 3S CK. ror ut TE THE &4K WORDS (MAX) ONTO bist AT FC 
FS. FT (SCALED, IF NECESSARY TO AVOID PACK OVERFLOW). THEN ZERO THE 
ENTIRE 64K BLOCK IN ME AND READ THE DATA BACK FROM THE DISK, AT 
THE SAME PHYSICAL ADORE Eéses COMPARE THE DATA READ TO THE DATA 
WRITTEN. TYPE THE FAILING SEE TUAL (IF MEM. MANAGEMENT) AND PHYSICAL 
ADDRESSES, WELL AS THE GOOD AND BAD DATA, FOR UP TO THE FIRST 19 
(DECIMAL) FAILING LOCATIONS. 


IF MEMORY MANAGEMENT IS PROVIDED AND THERE IS ADDITONAL MEMORY TO 
TEST. REPEAT THE ABOVE ADDRESSING TEST FOR EACH OF THE REMAINING S4K 
PHYSICAL MEMORY BLOCKS. 


9.2.2 TEST 3 - NPR/MEMORY BLOCK ADDRESSING TEST , 
th THES TEST, MEMORY BLOCK ADDRESSING CAPABILITY DURING RKO& NPR'S IS 


THE TEST BEGINS BY ee So A SINGLE NUMBER INTO ALL LOCATI OF EACH 
MEMORY BLOCK OF UP T 


FILE). ZERO THE BLOCK IN MEMORY, AND THEN READ THE DATA BACK INTO THE 
PROPER PHY The eiate weer nee” The THIS ye 4iK aS S, AND ne 


OF ALL MEMORY TO EXPECTED VALUES. TYPE 
FAILURES Fs DeScRTEED ABOVE FOR THE FIRST 1O(DEC) FAILING ALOE ATIONS IN 
EACH E4K MEMORY BLOG 


eee 
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1048 
1049 


‘aii, 


rita 
ONE Go 


Bare 


FREE EES 


PRS A 


oat 


ai 


SOS GEOG RG 000090500005 550555000506 
for 


8 


SERRRe 


tt 
Ooo 
= 


OS-0CT 


-76 10:07 


9.2.3 TEST 4 - NPR/MEMORY DATA PATTERN TEST 


IN OF a ALL PHYSICAL MEMORY LOCATIONS ABOVE THE PROGRAM (NOT 
INCLUDING UPPER WNT eS S PA? SOUR TRE? Ga ARE BERET SED WITH UP TO 15 
DATA Par TERN Ss, asc PATTERNS DESCRISED IN 
SECTION L ae TERN 15 (USER DEFT NED PATTERN). THE DATA 
PATTERNS Reetrep FOR THIS TEST ARE a SEPARATELY, HOWEVER, AND 
THEY DEFAULT TO PATTERNS 8, 9, 10, AND 1 


MEMORY 1s TESTED IN BLOCKS OF 64K STARTING AT THE FIRST ADDRESS OF 
THE NEXT 1K MEMORY BLOCK K BEYOND THE F ROGRAN EACH BLOCK OF UP TO bak 
IS LOADED itTH DATA, WRITTEN ONTO D 


Beng SOE RRR RPAH ad SHERMER AHS deo 


9.3 TEST S - UNIBUS CONTENTION TEST 


tte PURP ORF OF bas *y , IS TO ere THE NPR CONTROL LOGIC WITHIN 
CONTROLLER A MANNER 2. CONTENTION FOR MEMORY CYCLES 
ARISES BETWEEN THE PROCESSOR AND THE RKO& 


FIRST, A WRITE DATA IS BEGUN ON CYLINDER FC, (SCALED TO AVOID PACK 
OVERFLOW) AT SECTOR 0, WITH THE BUS ADDRESS INCRE MENT INHIBIT BIT SET 
IN THE AONTROLCER. USING A WORD COUNT oF 12000(0CT) OR 13000(0CT) 
(DEPENDING ON THE FORMAT), THE ENTIRE TRACK IS WRITTEN WITH THE FIRST 
WORD OF USER ae: PATTERN s CIF SELECTED) OR THE 0 
PATTERN 13 (BY DEFAULT). THEN, AN INSTRUCTION LOOP IS EN TERED IN 
WHICH A NON-EXISTENT UNIBUS DEVICE’ ADDRESS IS REFERENCED ONCE PER 
Pass. THIS WILL RESULT IN A PROCESSOR SIEZURE OF THE UNIBUS, FOR 5-20 
MICRO-SEC (DEPENDING ON THE PROCESSOR), FOLLOWED BY A NON-EXISTENT 
MEMORY PROCESSOR TRAP, ONCE PER PASS. "THUS. FOR EACH PASS THROUGH THE 
INSTRUCTION LOOP, THE’ CONTROLLER 1S FORCED to LOSE FROM ONE TO FOUR 
NPR BUS CYCLES’ THE EXECUTION TIME OF THE LOOP DETERMINES THE 
REPITITION RATE OF THE HE NON-EXISTENT MEMORY REFEREN ces, THIS IS 


SEN TO ALLOW ENO OULD BE DAT 
ERRORS IN A FAULT-FREE CONTROLLER. THE DATA IS THEN WRITE CHECKED FOR 
VERIFICATION, AND THE ABOVE TEST IS REPEATED USING A READ DATA 
COMMAND. NO ERRORS ARE EXPECTED. 


THE ABOVE OPERATIONS ARE REPEATED 15 MORE TIMES, USING THE NEXT WORD 
STIne Tanta PATTERN (13 OR 15) EACH TIME, TO WRITE AND READ THE 


$.4 TEST & - MULTI-DRIVE INTERFERENCE TEST 


Tits TEST PERFORMS MULTI-DRIVE POS TT TONTNS OPERATIONS, WHILE A LARGE 
DATA TRANSFER IS IN PROGRESS ON THE DRIVE UNDER TEST, FOR THE PURPOSE 
OF BETECTING PROBLEMS OF CONCURRENT DRIVE OPERATION. ‘THE TEST IS RUN 
ONLY IF THERE IS MORE THAN ONE DRIVE ON THE SUBSYSTEM. 





| 
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THE TEST PROCEEDS AS FOLLOWS: IT IS FIRST DETERMINED WHICH DRIVE(S 


Ane then cE aReb and A SEER to ne Oe Bote OR EnCH. ReXT we 
TO CYLINDER FC (SCALED, IF NECE HE DRIVE UNDER T 


SEK - <biok geen oN N EACH H OF eat OT i, “Drives THE CH To A DIFFEREN? 
SHOULD REQU UIRE af rot 


THIS 
Aes i one oN tar: SFENG ARE EYP INDER iro), nee 


TRACK 0, WITH T MENT INHIBIT BIT 
CaNTROL “Se AND her 3 foRBe SBunt nee at 616 (DEC) WBROS ia 20 “SECTOR 
17,152 (DEC) WORDS IF 22 SECTOR eBRnaT. THIS WORD COUNT — 
AMOUNTS TO A FULL CYLINDER $ +4 1 SECTOR OF baa. THIS TRANSFER REQUIRES 
bat 11. 126 MILLI-SEC T NT THER 


T TIME, ALL 
POVERTY THe Gate saTTE HAE Ma Se Tech MENG CHECK, 8, ONE 


WHICH htiegs SEEKS GERE ABLE 
ro COMPL ETE UREN HAC CRESOPUELYS a“ CHECKING ATTENTION BITS AND 
COMPARING DRIVE CYLINDER ADDRESSES TO EXPECTED VALUES. 


a 


10.0 ERROR REPORTING 


10.1 COMMON ERRORS 


THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR 
TYPEOUTS FROM THE SUBSYSTEM VERIFICATION PROGRAM. THE ERRORS ARE 
SELF-EXPLANATORY. 


UNIBUS PARITY ERROR 
NON-EXISTANT MEMORY ERROR 
NON-EXISTANT DRIVE ERROR 
UNIT ERROR 


[oo 
. 


ITY ERR 
— DETECTED PARITY ERROR 


SPEED LOS 
ILLEGAL FUNCTION ERROR 
OGRA’ 


PROGRAMM 
NON-EXECUTABLE FUNCTION ERROR 
ca YPE ERROR 


+s he hee he be be he be be ne ee eh he be be be he he hs be Be Bae be be Bn Be Be he be he be be he be ae he Be he 8 be hh be Bo 
HIG SS Akh She SO IACONO TEV POE cise RR ORG 


TUTTO TM ee be 0b 
R= GOON T ANEW =G0w Noun cure 


wine 
woo 
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 - 


b+ bb = + b+ bs B= be Be he Fe he he he he 


POO VR Ler Ose Sout Bande CODED der UNE Coro 


OL RRR a ah a a a 
w& 


BBB L 


Bone 


+ b+ & = 0-2 © + 02 bs bo bs bs = 0 0&0 bo be Bs bs 8 Bo bo 0 Be 0 ho ho BB Fs bo bo he be Be ho he Be Bs 0 Be Be Be ee 
R ©o 
ww 


in Ete OW Vr 


02 hh ee 
rurureururorururururururur 


os- -0CT-7 6&1 


ié 


»- 


23. CONTROLLER TIMEOUT ERROR 
24. ceenaT iON INCOMPLETE ERROR 
2S. HERDER VRC ERROR 


, MPARE 

29. NO DRIVE RESPONSE - UF” AND NXD 

30. DRIVE on WILL NOT CLEAR 

31. DRIVE STATUS CHANGE WILL NOT CLEAR 

3e. aTTENT EON UT NO Srarus. CHANGE OR FAULT 
: T DRIVE NOT AVAILASLE 

34. ERROR WHILE GATHERING DRIVE STATUS 

DRIVE SELECT 


. HEADER COMPARE ERROR 
37. ERROR IN RECALIGRATE FOR te! 
38. CLEAR CONTROLLER DID NOT CLEAR ERROR 
NO ect Terio a Fe aN TON SUMMARY REGISTER 


41. XPECTED DATA TYPE ERROR 

42. ATTENTION DID NOT RESET WITH CLEAR 

43. aga YST et CLEAR DID NOT CLEAR DRIVE ATTENTION 
44. DATA LATE WHEN UNLOADING 

45.‘ CONTROLLER ERROR WHEN DRIVER SERVICING 

46. RETRY UNSUCCESSFUL 

47, BAD SECTOR ERROR ON SECTOR NOT LISTED BAD 


10.2 ERROR HANDLING 


ERRORS REPORTED BY THE PROGRAM CONSIST OF COMMON FAILURES RESULTING 
de ATTEMPTED SUBSYSTEM FUNCTIONS, AS WELL AS CERTAIN ERRORS pe 
PARTICULAR Tels. CH ERROR 'PRINTOUT CONSISTS OF AN ERR 
DESCRIPTION AND TEST NUMBER, POSSIBLY FOLLOWED BY HEADER LINES COLUMN 

REGISTER CONTENTS IN OCTAL. S__MUCH 
RK611 REGISTERS) 


AN L REGISTER L oF aoa 
ARE REPORTED IN A GIVEN ERROR. ih Ri; CBSE f DATA NISCOMPARE FOR 
ANCE, THE NUMBER GOOD D bata HYSICAL MEMORY 
ADDR=SS. VIRTUAL ADDRESS, AND RENORY HOR OANE GEN NT REGISTER CONTENTS CIF 
PR SENT) BRE REPORTED. OTHER ERROR REPORTS MAY CONSIST OF fi SINGLE 
a 


10.3 ERROR PRINTOUT EXAMPLES 


EXAMPLE 1: 
#* WRITE CHECK ERROR 
TEST 2 


PREVIOUS COMMAND: 
DR CM CYLNOR TRACK SECTOR WD CNT 
000000 O0ulei 000016 00000! 900000 175000 


‘pee - RK 
05-0 


DZRENC .P 


\ 


b11/RK 
cT=76 


06 
10: 
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HI BA 0 BA 
090000 De 1Se6 


CURRENT COMMAND: 

ERR PC DRIVE CMND CYLNDR TRACK SECTOR WD CNT 

aa ee, 000131 000016 00000: O000CE 175000 
000000 061566 

PACK ADDRESS OF ERROR(S): 

CYLNDR TRACK SECTOR 

000016 000001 000006 


EXAMPLE 2: 


*#* DATA MISCOMPARE 
TEST 2 


PREVIOUS COMMAND: 

DRIVE CMND CYLNDR TRACK SECTOR WD CNT 

a tn 000016 000001 o00000 175000 

oo00c0 074000 / 

Nog OY COMMAND : 

ERR PC DRIVE CMND CYLNDR TRACK SECTOR WD CNT 

G53156 Be 000121 000016 00000: o00000 175000 
000000 074000 

PACK ADDRESS OF ERROR(S): 

CYLNOR TRACK SECTOR 

oc°316 000001 000000 . 

WD # GOOD BAD HI PHY LO PHY YRT AD KIPAR6 


O00C400 000401 12eSeSe o00000 a75000 155000 Od00600 


000401 9004 leS2Se 00000 pr eone 155002 00060 
sea leSeSe 00000 4 155004 0060 
O403 C00404 leSeSe O00000 075006 155006 00060 
000404 o004 1eS52eSe 000000 075010 155010 900600 
40S 000406 leSeSe 000000 O7f0le 155012 000600 
0406 O00407 1eSeSe 000000 075014 155014 000500 
000407 000410 ieSeSe 000000 75016 13a0i8 000600 
000410 O00411 ie5e5e 000000 O750e0 155020 s00600 
000411 O00412 ieSeSe 000000 O750e2e iss0ee 00600 


11.0 RKO& HEAD ALIGNMENT AID 
THIS PROGRAM IS PROVIDED AS A SOFTWARE AID TO HEAD ALIGNMENT OF THE 


SEG 0025 
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RKGE DRIVE, TO BE’USED IN Syd ty. WITH THE ae FIELD TEST BOX, OR 
OTTER. SUITABLE INDICATOR OF OF HEAD ALIGNMENT, THE PROGRAM orere AT 2, IN 
heNUAL, SELECT HOOK, rb Letts SPECIFIC 


DRIVE AND HEAD TO BE ALIGN TY SECOND 
MODE IS AUTO-SELECT MODE, WHICH ALLOWS REMOTE DRIVE Heap ee 
THROUGH OPERATION OF DRIVE DUAL-PORT SELECT SWITCHES. IN EITHER MODE 
r OPERATOR HAS THE gh TQ My 3 FERFORM HEAD ALIGNMENT, VERIFY 

LIGNMENT, OR REQUEST UP TO FIVE MINUTES OF RANDOM SEEK EXERCISES TO 
BE PERFORMED ON THE SPECIFIED DRIVE (S). 


11.1 HARDWARE REQUIREMENTS 
TO PERFORM HEAD ALIGNMENT, THE ALIGNMENT 7 ae iat DEVICE MUST BE 
CONNECTED TO THE DRIVE VIA THE ALIGNMENT CABLE WHICH ATTACHES TO THE 


RKO& READ/WRITE MODULE. THE ALIGNMENT INFORMATION FROM ue 3 DRIVE MUST 
ne 7, wit an A Be -_ ids gto Oe che heh 0 BE eh te 


NMENT AND 
BS EEO BNE in, [: ‘eels oR ve PER R CONTROLLER’ Ny MAY BE ALIGNED, 
T AND aL SuITCH REGISTER Bris (HARDWARE 
OR R SOFTWARE) ARE stat BNORED- 


11.2 OPERATIONAL MODES 
THE PROGRAM COMMUNICATES WITH THE OPERATOR DOING THE ALIGNMENT THROUGH 
CONSOLE DIALOGUE. WHEN THE PROGRAM IS STARTED AT ADDRESS ce4(OCTAL), 
IT TYPES IDENTIFICATION: 


“ #£% RKO& HEAD ALIGNMENT AID # 
TYPE H{(CR) FOR INFORMATION- OTHERWISE, TYPE (CR) ™ 


NEXT, THE PROGRAM REQUESTS THE DESIRED MODE OF OPERATION: 

“ MANUAL OR AUTO MODE (M OR A)? ™ 
2.4  dapetines MAKES THE SELECTION, AND ENTERS ONE OF THE FOLLOWING 
MODES. 


11.2.1 MANUAL SELECT MODE 


IN THIS MODE, THE DRIVE(S) TO BE ALIGHE te THE HEAD(S) TO BE 
SELECTED Bre SPECIFIED BY TTY INPUT. Hie Nop S USEFUL FOR SYSTEMS 
WITH FEW ves WHICH BRE IN CLOSE bRoxtt TY oe THE - CONSOLE, AS IN 
TYPICAL F ELD ASTALLATION 


THE PROGRAM FIRST ECHOS THE MODE: 


SEG 0026 
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1327 
1328 
1329 
1336 "s MANUQL SELECT MODE # ” 
1331 ; AND TYPES “ENTER DRIVE NO. (0-7):". 
1333 THE OPERATOR TYPES THE ORIVE NUMBER, THE PROGRAM TYPES THE DRIVE 
i334 SERIAL NUMBER ANG THEN ASKS “ALIGN, VERIFY, OR EXERCISE (A oR E) 
1238 . THE OPERATOR RESPONDS, AND THE ‘PROGRAM’ ENTERS THE Abeesee Tate 
1336 SUB-MODE. 
1335 
ae 11.2.1.1 MANUAL SELECT ALIGNMENT 
zz ALIGNMENT IN MANUAL MODE PROCEEDS AS FOLLOWS. THE PROGRAM TYPES: 
365 “s MANUAL SELECT ALIGNMENT #," FOLLOWED BY 
ss " ENTER HEAD NO. (0-2): 
347 THE OPERATOR TYPES THE DESIRED HEAD NUMBER, AND THE PROGRAM UNLOADS 
348 THE HEADS ON THE DRIVE, IN ANTICIPATION OF OPERATOR MOUNTING OF THE 
346 HEAD ALIGNMENT TOOL. THE PROGRAM TYPES “TYPE<R> WHEN READY:". AFTER 
| 366 THE TOOL HAS BEEN MOUNTED THE OPERATOR TYPES <R>, AND THE PROGRAM 
Tl LOADS HEADS AND RESPONDS WITH: 
353 THEADS POSITIONED AT CYLINDER 365(OCT)* 
«= AND “HEAD X SELECTED™ 
| i FOBT ENCES GE CNONERTO ON THE POSTTIONER. LHILE THE BL IGRHENT’ TOOL 
] wool 
355 Po TER He” OPERATOR Ra NOW R PEE to a EN Put 
| iss 6 TO ASK FOR ANOTHER HEAD NUMBER ON THIS ORIV 
| 360 IF THE OPERAT EonTROL Z (#2) THE PROGRAM WILL LOOP BACK T 


A ee OR CyERCTSE ® (Sita IN Me Soe Pig 1 IF CONTROL C (tC) 


He FURTHER BAC 79 As Sk OF 8 NEM DRIVE NUMBER 
(STILL in HE SAME on IF A ORTROL HR 15 Tye TYPED, THE PROGRAM 


11.2.1.2 MANUAL SELECT VERIFY 
VERIFY MODE IDENTIFIES ITSELF AS FOLLOWS : > he 
“# MANUAL SELECT at a #" , FOLLOWED BY 


Sa ai oa 


S 


eee eed ee eed ed ed et ed ed ed ed ed ed ed ee ee ed ed ed ed es ed ed ed ed ee ee ed ed ed ed ee ee ee ee ee ee 


273 “ENTER HEAD NO. 

| [37s THE VERIFY MODE IS IDENTICAL TO THE ALIGNMENT MODE, EXCEPT THAT’ 
376 UNLOADING AND LOADING OF HEADS Is NOT DONE BET WEEN N HEAD SELECT 1ONS 
377 THEREFORE, IN THIS MODE, THE OPERATOR MAY SEL LECT HEADS FOR “QUICK ¢ 
378 BLIGHNENT. v V RIFICATION tuSING THE ALIGNMENT METER), WITHOUT TE DELAYS. 
375 OF UNLGADING AND LOADING HEADS. IN THIS MODE, THE OPERATOR WILL NOT» 
260 BE ASKED TO “TYPE <R> WHEN READY”. 





a 
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1381 
1382 
1383 
| 1388 11.2.1.3 MANUAL SELECT EXERCISE 
| 138 WHEN THE EXERCISE SUB-MODE OF MANUAL SELECT MODE 1S ENTERED, THE 
1387 PROGRAM UNL HEALS, ON ON THE SELECTED DRIVE, AND TYPES “TYPE <R) WHEN 
13e¢ READY". THE OPERATOR MUST THEN N REMO THE ALIGNMENT TOOL PRIOR TO 7 
138s RANDOM SEEKS WHICH FOLLOW, AND ALLOW EXERCISES TO PROCEED BY TYPING 
1390 <R>. THE PROGRAM THEN LOADS HEADS, AND- RESPONDS WITH 
13 "s SEEK EXERCISES IN PROGRESS ON DRIVE X #”. 
| is AT_THIS POINT, 7500 RANDOM SEEKS ARE BEGUN ON THE DRIVE, WMICH LASTS 
Las FOR ABOUT FIVE MINU NUTES. nga sg OMELETION OF THESE EXERCISES, THE 
peek PROGRAM eTURNS TO BOX F XERCISE o (STILL IN UAL 
| 3397 MODE) ON THIS DRIVE. Wie Ie eRIs MODE, THE tHaRaCtERS (92) 
1335 i), me (?R) PERFORM THE SAME Fone” “AS DESCRIBED IN SECTION 
| 2400 
i401 
/ [woe 
1303 11.2.2 AUTO SELECT MODE 
isos IN THIS MODE, ALL SELECTION OF DRIVES AND HEADS FOR ALIGNMENT IS DONE 
| 406 BY SEQUENTIAL OPERATION OF DRIVE PORT SELECT SWITCHES. THIS ALL OHS 
ist? ICATION WITH THE PROGRAM TO BE REMOTE FROM THE CO . THUS 
i408 AUTO SELE IS WELL SUITED TO THE MANUFACTURING TEST ENVIRONMENT 
i40¢ OR TO A FIELD INSTALLATION. WHICH HAS A NUMBER OF REMOTE DRIVES. THE 


6 

1 

= # AUTO SELECT MODE # “, AND ASKS 
‘3 pLIGN OR EXERCISE (A OR'E) ™. 

a 

E 

7 

: 


THE OPERATOR RESPONDS, AND THE PROGRAM ENTERS THE APPROPRIATE 
SUB-MODE . 


1 

/ yas 

ise 11.2.2.1 AUTO SELECT ALIGNMENT 

ice ALIGNMENT IN AUTO SELECT MODE PROCEEDS AS FOLLOWS. THE PROGRAM TYPES: 
ise ” # AUTO SELECT ALIGNMENT # “. . 

oe THE PROGRAM CONSTANTLY SCANS ALL DRIVES 0-7 TO DETERMINE THE EXISTENCE 

| 14g7 OF EACH. WHENEVER A DRIVE IS DESELECTED BY THE OPERATION OF ITS PORT 
i428 SELECT suTCH THE PR PROGRAM REC IVES fi NON-EXISTENT DRIVE INDICATION 
i429 WHEN 17 SELECTS THAT ORI N OGRAM DETERMINES THAT 
1430 DRIVE WHICH WAS PREV VIOUSLY” OFF Pet tne (DESELECTED) HAS Just. BEC 
1421 Gh-LINE (SELECTED), IT PREPARES FOR, ak IGNMENT ON THAT DRIVE. IN 
1432 S THE OPERATOR SELECTS @ DRIVE FOR ALIGNMENT BY DEPRESSING AND 
1333 THEN RELEASING THE PORT SELECT suiron (FOR THE PORT IN USE) ON THAT 
143 
1436 4 THE PROGRAM RECOGNIZES THE DRIVE SeLecteD, AND CHECKS IT TO BE SURE 












— nn re re ee er 


+ 0+ + b+ bh hs 





1457 
45B 
4E9 
469 
461 
WES 
4e3 
4eH 
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THAT IT IS WRITE-LOCKED. THE PROGRAM THEN TYPES: 
“DRIVE X SELECTED” 


AND THEN IT UNLOADS THE HEADS ON THAT DRIVE SO THAT THE OPERATOR CAN 
MOUNT THE HEAD RL IGNMEN| TOOL. WHEN IT IS MOUNTED THE OPERATOR MUST 
DEPRESS AND RELEASE THE PORT SuITCH abarh AND THE PROG LOADS 
HEADS, agehsaedN SINGLE INCREMENTS OUT 70 THE ALIGNMENT CYLINDER (365 


“HEADS POSITIONED AT CYLINDER 365(0CT. ) 
HEAD ED”. 


0 SELECT 
AFTER THE OPERATOR ALIGNS HEAD MAY PROCEED TO HEAD 1, BY 
DEPRESSING AND RELEASING THE Poet's SELECT SUITCH. WHEN HE DOES’ THE 
HEADS WILL UNLOADED AGAIN THE OPERATOR MAY MOVE 


THE ALIG 
TOOL TQ Mh ROY AND. UPON REPRE SSING AND RELEASING THE PORT auton 
See Nar) an i. at BE LOADED, THE PROGRAM WILL SEEK TO CYLINDER 


“HEADS POSITIONED AT CYLINDER 365(0CT) 
HEAD 1 SELECTED”. 


THIS PROCESS MAY BE CONTINUED WITH HEADS BEING SEL 
> 6B. de 2, OO, tee «UTIL TR OE 
RU IGHHENT? 


HA 
WHEN THE ee ae ene ALIGNMENT ON THIS ORIVE, HE SHOUD REMOVE 


TED IN THE ORDER 
S COMPLETED THE 


Ba 
gm 


THE _ALIGNMEN AND SWITCH THE DRIVE ON-LINE. IF HE iN WISHES 
TO SELECT ANOTHER DRIVE, HE MUST SWITCH THE DESIRED DRIVE OFF-LINE AND 
THEN ON-LINE AGAIN TO INITIATE SELECTION. WHEN ALL BeSTRED DRIVES 
HAVE er mee. THE je TYPES 1 OR tR, AS DESCRIBED IN SECTION 
be Gat THE Ope LER VING_ ALIGNMENT MODE AND PROCEEDING TO DO SEEK 
XE eters Sat OR MUST BE SURE TO REMOVE THE ALIGNMENT TOOL(S) 


FROM ALL bRIvece 


NOTE 
net FUNCTION DOES NOT APPLY IN AUTO 


11.2.2.2 AUTO SELECT VERIFY 
VERIFY MODE IDENTIFIES ITSELF AS FOLLOWS : 
“# AUTO SELECT VERIFY #” 
THE AUTO SELECT VERIFY MODE IS IDENTICAL TO THE AUTO ALIGNMENT MODE, 





Oe 
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1493 
ne 
S SEL AGE RRO AONE OC IE I BPE BSP 
148 Me QufCR aL Mw veRE rca toh CESINS THE ALIGNMENT METERS. WITHOUT 
i496 THE DELAY oF” TRL OADING ING HEADS. 
1500 
1501 
ide 
i5cs 11.2.2.3 AUTO SELECT EXERCISE 
1505 IN AUTO TO SELECT EXERCISE SUB NODE, RANDOM SEEK K EXERCISES ARE RE PER BEOR NED 
eh STRRTENG RITM Brive 0 he Ef THE Jeep SEEN IAT, ges 
1508 (7500 Seexoe S NENUTES) OB SHORT EXERCISES. (1500 SEEKS- 1 MINUTE) TO : 
1503 BE PERFORMED UPON EACH DRIVE ; 
iti AUTO SELECT EXERCISE MODE IDENTIFIES ITSELF AS FOLLOWS: 
1513 " * AUTO SELECT EXERCISES *_” =] 
| p18 1 FOLLOWED BY“SHORT OR LONG ‘S ORL) ? 
| 1536 THE OPERATOR TYPES HIS RESPONS. , AND THE SELECTED SEEK EXERCISES ARE 
| 41517 FORMED -ON EACH DRIVE. bn COMPLETION OF THESE EXERCISES, THE 
eis i Tee cu et THe CHARACTERS 12 AND TR paN AUTO, ODED. 
| ib¢ ie IN of NEPCBT SED IN” OE TT ON TT 
| 63 
«1523 NOTE 
| 135e CF REQUESTING RCISE MODE 
| [ESE FEE ORE ScRaY MUST MOVE LE BLIGNYENt 
| 3597 TOOL (WHILE STILL IN AUTO- GNMENT 
ieee MODE) WHILE THE HEADS ARE UNL 
1536 
1531 
1532 
1533 
E33 11.3 ALIGNMENT AID ERROR MESSAGES 
| 636 1. "DRIVE X NOT READY! PLEASE START IF DESIRED, THEN PRESS —*CONT” 
| 4é3 ON CPU N READY.” ats INGICATES 78 A DRIVE SELECTED FOR 
| tex ALIGNMENT WAS FOUND NOT READ 
| 356 
| qeae 2. "DRIVE X NOT wHBETE-LOCKED! PLEASE SET WRITE LOCK SWITCH. PRESS 
«LENS ‘CONT’ ON CPU WHEN READY™ HIS INDICATES THAT A DRIVE SELECTED FOR 
ae ALIGNMENT WAS FOUND NOT TO BE WRITE-PROTECTED. 
ee, 
‘se 3. “PLEASE LOAD ALIGNMENT CARTRIDGE ON DRIVE X! PRESS ‘CONT’ ON 





--- Cee 
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CPU WHEN REQDY.” = THIS INDICATES THAT A DRIVE SELECTED FOR ALIGNMENT 
WAS NOT LOADED WITH AN ALIGNMENT CARTRIDGE. 


4. “MULTIPLE DRIVES AUTO-SELECTED! PRESS ‘CONT’ TO RESTART.” 
- THIS INDICATES THAT IN AUTO ALIGNMENT MODE MORE THAN ONE OF THE 
DRIVES WERE SELECTED FOR ALIGNMENT SIMULTANEOUSELY. 


S. I sins 7 READ Bee BAD afee on FILE ON DRIVE X! PRESS "CONT’ ON CPU _TO 
RESTAR TES THAT A READ ERROR WAS ENCOUNTERED tae ye 
PROGRAM as ATTEMPTING TO IDENTIFY THE CARTRIDGE ON ORIVE AS 
ALIGNMENT CARTRIDGE. 


"y - THIS IS TYPED BY THE PROGRAM IN RESPONSE TO THE INPUT 
OF "AN vALID PARAMETER, SHOWN HERE AS X. THE OPERATOR SHOULD NOW 
ENTER T NBROPER VALUE. 
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APPENDIX A 


SAMPLE ADDRESS 200 DEFAULT RUN 
% \V a Py 
THE FOLLOWING. PRINTOUT WAS THE RESULT OF RUNNING SUBSYSTEM 
VERIFICATION: PART 2, ON A SINGLE DRIVE (DRIVE 0), FOR THE FIRST PASS 
THE PROGRAM (QUICK-VERIFY PASS). IN THIS f MESSA 


OF E ESSAGES 
APPEARING HERE’ WERE OUTPUTS--NO OPERATOR INPUTS ARE PROVIDED ON AN 
ADDRESS 200 “GUN.” 


DZREN-C -. RK611/RKO& SUBSYSTEM VERIFICATION : PART 2 
LAST PHYS MEM ADR = 377776 


DRIVE 1 NON-EXISTENT 
DRIVE 2 NON-EXISTENT 
3 STENT 


zw 
+ 40-4 
ain 
od 
zz 
S8SS 
a 
~< 
on 
w 
= 
m 
=z 
4 


VE & NON- 
DRIVE 7 NON- 
DRIVE(S) = 0 ! 
TESTING DRIVE OC a 

R No. 8 ; 


DRIVE SER. No. 
CART. SER. NO. 334 


XISTENT 


OFFSET-TO-FAILURE MEASUREMENTS: 


TRACK CYLN SECT +0FST -OFST 
(UIN) (UIN) 
NONE 


— oo 


Oo0Or-O0rF-O00 
—- 
MOMOMOMOMOMO 


rururnne ee OOOO 
= 


o 
ie) 
_ 
- 


END PASS ® 1 
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APPENDIX B 
SAMPLE ADDRESS 204 RUN 


THE FOLLOWING PRINTOUT WAS THE RESULT OF RUNNING SUBSYSTEM 
ON T, 2, _ON A SINGLE DRIVE (DRIVE 0), WITH PARTICULAR 
TESTS SELECTED. er BE 4 ey oBeeiPED” a onde OF 06 nat WITH 


SPECTFIEALLY, TT dl IT Wi {FIED Aa a 


TERS, PR Pass 
UE TNs. peas EES Ssuacyee 10 Fie t eer Pe 


S3) AND DATA PATTERN. (PT) WERE SPECIFIED AS 
NON BEPRULT 
DZREN-C - RKG1L/RKO& SUBSYSTEM VERIFICATION:PART 2 
LAST PHYS MEM ADR=377776 


PARAMETER INPUT MODE 


RKO& BUS ADR = 177440 NEW = 
RKO& VEC ADR = elo NEW = 
RKO& PRIORITY = S NEW = 


DRIVE(S) = 0 


= LIST TESTS 
: = 2 GE TESTS 
I = INPUT PARAMETERS AND RUN TESTS 
ENTER L,C, ORT 
10 DEFAULT TESTS TYPE D <CR>, ELSE <CR> 


es i ITERATIONS 


wr 
rururoru 


* OXON] 
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1e84 
1685 
. 1686 
1687 5 2 #0 
168s é 100 * 1 
i680 ENTER L,¢, ORI 
1692 
1683 TEST ITERATIONS 
1695 é 6 
es bod 
ig9¢ S 0 
$33 , ‘ 
170) ENTER L.C, OR I 
1555 
1704 T = TYPE PARAMETER LIST 
1705 0 = OPEN PARAMETER LIST 
1706 § = SET INDIVIDUAL PARAM 
1787 R = RUN TESTS 
| 1708 ENTER T,0,S, OR R 
eit Fo2p 
me: fe 
| 175 =2 
1715 = 
es: ae , 
| i7ie 53225 Pe 
1532 fee 
He 1 oe 
1723 NTER 7.0.5, OR R 
ie re 
i726 » S¥se0 
‘1787 Sv=20? 
| 1788 > $3=20 
| 1728 | >» PT=100000 
| 173 To MODIFY PATTERN 15, TYPE M <CR>, ELSE <CR 
| —s 
1732 
| 3733 MODIFY USER-DEFINED PATTERN 1S: 
«7 WORD OC = 072307 * 123456! 
eB Xi 
| 1737 ENTER T,0,5, OR R 
| 1738 § abo: 


1738 FC=0 


—_——— —_——- +. - - - ne re eee 


Asstt feat AU Afar 


1770 


Pil 


ON ati - RKELI/RKOG pie VERIF. 
DZRENC. OS-0CT-76 10:0 


: PART 2 

LC=E32 
FT=0 
LT= 
$0= 
Sl=23 
Se=4 
$3=20 
PT=100000 
cS= 
T= 
USER-DEFINED PATTERN 15S 
WORD = 123456 
WORD O01 = 123456 
WORD Oe = 123456 
WORD O03 = 123456 
WORD O04 = 123456 
WORD OS = 123456 
WORD O& = 123456 
WORD 07 = 123456 
WORD 10 = 123456 
WORD 11 = 123456 
WORD le = 1le34S6 
WORD 13 = 123456 
WORD 1442 

= 1234S& 


MACY11 27( 1006) 


ENTER T,0,S, OR R 
# R 


ENTER NO. OF PASSES (1-77777) : 


TESTING OR 
DRIVE SER. 
CART. SER. 


OF FSET-TO-FAILURE rERSUREMENTS: 


TRACK CYLN SECT 


0 


rorutun O00 
oom 
WW 
——-00--00--00 


nro 
Ww 


e, 0 P 
NO: 334 
+0FST 
(UIN 
NONE 
20 NONE 
4 NO 
20 NO 
BS .. 
wi 
a NONE 
20 NONE 
4 NO 
20 «(ON 
4 N 
20 NONE 


(UIN) 
NONE 


05-OCT-76 


10:59 PAGE 36 


SEG 0025 
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OZRENC.P11 


a 
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END PASS & 1 
TO TEST ALL ORIVES TYPE “A” <CR>, 
- 


OS-OCT-76 10:59 PAGE 37 


ELSE <CR> 


SEG es 


ES 
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APPENDIX C 
SAMPLE MANUAL MODE HEAD ALIGNMENT AID RUN 


THE FOLLOWING PRINTOUT WAS THE RESULT OF RUNNING Hs: HEAD ALIGNMENT 
AID, PROVIDED IN SUBSYSTEM VERIFICATION PART 2 (ADDRESS 224 START). 
MANUAL MODE WAS REQUESTED, AND THE OPERATOR SELECTED DRIVE O FOR 


ALIGNMENT. IN THIS CASE, THE OPERATOR SELECTED HEADS 1,0, AND 2, IN 
R THEN REQUESTED RANDOM SEEK EXCRCISES TO BE RUN ON THE 
DRIVE (AFTER REMOV T TOOL). THE EXERCISES WOULD 


AL OF ‘ 
HAVE NORMALLY RUN FOR 5 MINUTES BUT THEY WERE PREMATURELY TERMINATED 
BY THE OPERATOR, BY TYPING (t2), IN THIS PARTICULAR RUN. FINALLY, 
VERIFY MODE WAS REQUESTED, AND HEAD'2 WAS SELECTED BY THE OPERATOR. 
DZREN-C - RK611/RKO& SUBSYSTEM VERIFICATION : PART 2 
##% RKOG HEAD ALIGNMENT AID ### 
FOR HELP TYPE H, ELSE <CR> 


tat OR AUTO MODE <M OR A)? 


* MANUAL SELECT MODE # 

ENTER DRIVE NO. (0-7): 

DRIVE SER. NO. 8 

ate, VERIFY, OR EXERCISE (A, V, OR E)? 


* MANUAL SELECT ALIGNMENT * 
ENTER HEAD NO. (0-2): 
,ve <R> WHEN READY: 


HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD 1 SELECTED 


ENTER HEAD NO. (0-2): 


SEG 0037 


ae te ee Ce 


DoRe 


NC.Pr1 
1859 


11-DZREN-C - RK&11/RKO6 SUBSYS. 
05-OCT-76 10:07 


VERIF. : PART 2 


0 
TYPE <R> WHEN READY: 


HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD O SELECTED 


ENTER HEAD NO. (0-2): 
ire <R> WHEN READY: 
FieAps POSITIONED AT CYLINDER 365 (OCT) 


MEAD 2 SELECTED 

ENTER HEAD NO. (O-2): 

ALIGN, VERIFY, OR EXERCISE (A, V, OR E) ” 

4 vt <«R> WHEN READY: 

teat SEEK EXERCISES IN PROGRESS ON DRIVE O # 


ote, VERIFY, OR EXERCISE ‘S, v, OR E) ” 


_ # MANUAL SELECT VERIFY * 


‘vies HEAD NO. (0-2) : 


HEADS PCSITIONED AT CYLINDER 365 (OCT) 
HEAD 2 SELECTED 


en HEAD NO. (O-2) : 


ALIGN, VERIFY, OR EXERCISE (A, V, OR E) ? 


MACY11 27(1006) O5-O0CT-76 10:59 PAGE 39 
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-——— 






















MD-11-DZREN-C - RKBLI/RKOG SUBSYS. VERIF. : PART 2 MACYL1 27(1006) O5-OCT-76 10:59 PAGE 40 $€6 0039 
DZRENC.P11  OS-OCT-76 10:07 

302 
303 
304 
305 
306 
307 
308 
208 
Siu 
$11 
zig APPENDIX D 
ai : SAMPLE AUTO MODE HEAD ALIGNMENT AID RUN 
a 
gig THE FOLLOWING PRINTOUT WAS THE RESULT OF RUNNING THE HEAD ALIGNMENT 
gis: AID, PROVIDED IN SUBSYSTEM VERIFICATION PART 2 (ADDRESS 224 START). 
$20 AUTO NODE HAS REQUESTED, | AND. THE OPERATOR SELECTED DRIVE O FOR 
$21 ALIGNMENT. IN THIS CASE, HEADS 0,1,2, AND O (AGAIN) WERE SELECTED FOR 
$22 : BLIGHNENT SIN AUTO MODE, THE HEADS ARE ALWAYS SELECTED IN THE ORDER ~ 
323 : .).. BETWEEN HEAD SELECTIONS, THE HEADS WERE UNLOADED ~ 
324 7 "AEtOh REMOVAL OR INSTALLATION OF THE HEAD’ ALIGNMENT TOOL. TE * 
925 THAT ALL DRIVE AND HEAD SELECTION (IN. AUTO MODE) IS DONE BY. THE 
SEE OPERATOR, AT THE DRIVES, BY OPERATION OF PORT SELECT SWITCHES. AFTER 
327 ALIGNING’ HEADS REQUESTED RANDON SEEK EXCERCISES T0 BE 
a SLSR TS ah "eae Riu te eee Save. Prati aate age 

| 1330 VERIFY BRS REQUESTED, AND HERDS 0,1, AND 2 ely se EY SeQUENTEALLY. 

| az OZREN-C - RK611/RKO& SUBSYSTEM VERIFICATION : PART 2 

i 

|. | 


#*% RKO& HEAD ALIGNMENT AID *#* 
FOR HELP TYPE H, ELSE <CR> 


Sour. OR AUTO MODE (M OR A)? 


# AUTO SELECT MOCE # 
ALIGN, VERIFY, OR EXERCISE (A, V, OR E) ? 


# AUTO SELECT ALIGNMENT # 
DRIVE O SELECTED 


HEADS POSITIONED AT CYLINDER 365 (OCT) 
HEAD 0 Mit E 

HEADS P D AT CYLINDER 365 (OCT) 
HEAD 1 CTED 

HEADS POSTON AT CYLINDER 365 (OCT) 
HEAD 2 SELECTED 


9x0 9-0 Gus 9u2 $0000 9=n shan hahahaha ho pus hun Gnas bs Gush hes us pn Sunganpngnt 2 2 2 b= b+ b> 2 2 b 2 bs Bs bo bs 8 Be hs hho Be he 
IL WUE ae Be RAI 
INTWwM-OwWwwDs Gite 


in 
“N 
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DIR8! C Pll we "Ve. 
1958 
1955 
1960 
1961 HEADS Pogitzonen AT CYLINDER 365 (OCT) 
1962 HEAD O SELECTED 
1963 2 
1965 
1965 
1355 # AUTO SELECT MODE # 
1968 ALIGN, VERIFY, OR EXERCISE (A, V, OR E) ” 
1966 E 
+a 
i378 * AUTO SELECT EXERCISES » 
i373 SHORT OR LONG (S$ OR L) ? 
i$7é EXERCISING DRIVE 0 
197? 
i$78 
17 # AUTO SELECT MODE # 
i$] ALIGN, VERIFY, OR EXERCISE (A, V, OR E) 
i382 Vv 
1983 : 
1S85 
ise # AUTO SELECT VERIFY # 
i367 ORIVE 0 SELECTED 
iss S POSITIONED AT CYLINDER 365 (OCT) 
199¢ teas gt i? 
is] HERDS POSITIONED AT CYLINDER 365 (OCT) 
1992 HEAD 1 SELECTED 
i$$3 Enos POSITIONED AT CYLINDER 365 (OCT) 
1995 
+335 
1327 ALIGN, VERIFY, OR EXERCISE (A, Vv, ORE) ” 


’ 
e 


| MD<LI-DZREN-C - RKEIIURKOE SUBSYS. VERIF. : PART 2 MACYLI 27(1006) O5-OCT-76 10:59 PAGE 42 S66 004: 
| DERENC.F1L © OS-OCT-7@ 10:07 
| 353% ree Ansty te “BRET NE PERT bWILL 
1 eae - i MSLED, ### 
| $004 332 dE “PERT 72 BEEINEB fod'= BFE MBP CecEna Et” aes 
| “ER 
| 007 .NLIST MC,MD,CNO 
2008 -LIST 
2008 .ENABL AMA 
2010 187000 SWR= 167000 
e0l) + FSSSSSSSSSASSASSSRSSEASESAELSLELSSSELASSSSSSFASLALSLALASSSLAFSF 
ele “S8TTL STARTING ADDRESSES 
| 2014 Y 200 DEFAULT PARAMETERS FOR TESTS 1-6 
| BOIS + 204 SELECT ParAtie TERS FOR TESTS 1-£ 
| 2016 224 HEAD ALIGNMENT AID 
Sate p SERAAEAASASHERALELASSELELELASESASAAELAELEFAFAALA SLT AAA TAAL ASE SE 
| ~e 
2018 000001 $TN=] 
| 20e0 . TITLE NO=11-OZREN-C - RKBLI/RKOG SUBSYS. VERIF. : PART 2 
| el ;#COPYRIGHT (C) 1976 
| dee 2016 GITAL EQUIPMENT CORP. 
| 083 MAYNARD, MASS. 01754 
| e0e4 
E555 SSPROGRAM BY DAVE HOFFMAN 
eu .# 
| g0e7 !#THIS PROGRAM WAS ASSEMBLED USING THE po 11 MAINDEC SYSMAC 
| 5c ; #PACKAGE (MAINDEC-11-D2QAC-Ce), SEPT 14, 1976. 
2230 SSETTL OPERATIONAL SWITCH SETTINGS 
wos ;* 
2032 :# SWITCH USE 
2033 S$ eee teen ennc nna nnnnnn 
2024 :# 15 HALT oN : 
2035 1+ 14 LOOP_ON TEST 
2036 ;# 13 INHIB T ono TYPEOUTS 
£537 :* le REPOR IPTION ONcY, ON ERRORS 
e238 ;# 1} INHIBIT OF FERA TIONS 
2028 L+ 10 BE ERRO 
e040 ;# 3 LO yh ERROR - 
2041 # z Y RANDOM STALL BETWEEN OPERATIONS 
| EOMe t+ . REPORT 1 ERROR PER TRANSFER IN TESTS 2-4 
Bia :# 1 INHIBIT WRITES IN TEST 
2 vs 0 SOF TWARE ZOMPARE ERRORS IN TESTS 2-4 
ents -SBTTL CONTROL SHITCH SETTINGS (PARAMETER CS) 
2047 :# SWITCH USE 
2O4e ‘fae, Sy, - Seen seRSseasse 
2045 # os DROP DRIVE IF ZO(0EC) ERRORS EXCEEDED 
2050 :# 04 TYPE BAD SECTOR FILES (ESF°S) ON FIRST PASS 
e551 ie 01 INHIBIT OFFSET REPORTS IN TEST | 
wot 
ere .SBTTL BASIC DEFINITIONS 
ess ;#INITIAL ADDRESS OF ‘THE STACK POINTER ### 1100 #48 
e056 001100 ETACK= 11 
2057 “EQUIV et. ERROR :;BASIC DEFINITION OF ERROR CALL 





ow 





vu 


-—OOo0aonN 


4 


MCcouwue- 


~IC Db 


ee ee ee 


Pies 


rorororurorororurororofrororu 
PST See et See aed See mee met med ed Sed ed Ded on) 
GRRL B 


0-8-9 
ore C9.0 








sBSV5. VERIF. : PART 2 MACY11 27(1008) OS-OCT-7& 

Basic REFENITIONS 

.EQUIV I0T,SCOPE ::BASIC DEFINITION OF SCOPE CALL 
pSMISCELLANEOUS DEFINITIONS 

HT: ;CODE FOR HORIZONTAL TAS 

LF i ::CODE FOR LINE FEED 

tR= 1 33C0 FOR CARR RETURN 

CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 

PSs 177776 tT EROEESSOR cm atus WORD 

.EQUIV PS PSW 

STKLMT= 175774 :;STACK LIMIT REGISTER 

PIRG= 177772 ; ;PROGRAN_IN NTERRUPT REQUEST REGISTER 

DSWR= 177576 sHARDWARE SWITCH REG 

DDISP= 1o5e50 : UARDWARE BISPLAY REGISTER 
- GENERAL PURPOSE REGISTER DEFINITIONS 

Ro= “0 7:GENERAL REGISTER 

Ris “1 ;:GENERAL REGISTER 
= 2 ::GENERAL REGISTER 

Riz “3 >: GENERAL REGISTER 

Rus man ::GENERAL REGISTER 

RS= “S ::GENERAL REGISTER 

R&= AS) ;;GENERAL REGISTER 

R?= “? ::GENERAL REGISTER 

SP= “& ;;STACK POINTER 

Pts “> ::PROGRAM COUNTER 
-*#PRIORITY LEVEL DEFINITIONS 

Peo= sO :;PRIORITY LEVEL 0 

PRiz 40 ::PRIORITY LEVEL 1 

PRe= 100 ::PRIORITY LEVEL 2 

PR3= 140 ::PRIORITY LEVEL 3 

PRY= 200 ;:;PRIORITY LEVEL 4 

PRS= 240 ::PRIORITY LEVEL 5 

PRE= 300 7 PRIORITY LEVEL 6 

PR7= 340 !:PRIORITY LEVEL 7 

+ #"SWITCH REGISTER” SWITCH DEFINITIONS 

€wiS= 100000 

SWli4¥= 40000 

SWig= 20000 

Swie= 10000 

SWil= 4000 

Swid= 2000 

cwos= 1000 

Swos= 400 

SwO7= 200 

SWwOb= 100 

Swos= 40 

cwo4= 20 

cwo3= 10 

SwOe= 

SwOl= 2 

Swoos 


i 
-EQUIV SWOS,SW9 
-EQUIV SWOB, SWE 
-EQUIY SWO7, SW? 
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MO-11-DZREN-C - RKELL/RKOG SUBSYS. VERIF. ; PART MACY11 27(1006) OS-OCT-76 10:59 PAGE 44 
| DIRENC.FLI scoot ire 10: Be adie DEFINITIONS 
| 2114 EQUIV SWOE, SWE 
| 2115 EQUIV SwWOS, SWS 
2118 V ; 
| ae ivy : 
it V : 
| él} EQUIV §WO1,SW1 
| gig0 EQUIV SwOO,SWO 
ree 
BE: -sDATA BIT DEFINITIONS (BITOO TC BITS) 
| gles 100000 Sitis= 1 
| eles 049050 BIT'4= 40000 
He EES Hie Ee 
. wesley = 
| HS fafa folate Bi Ties dpeRe 
 «~Zlzs 652000 BIT1O= 2900 
(2 ge figs 
| 21s! Btt5 = 200 
| 2132 900100 BITOS= 100 
| 8333 990040 8ITOS= 40 
| B134 900928 BITo4= 20 
| sie spent Bites 4 
| € rj 
 «=-Bs seat Eitoiz 2 
| p38 000001 BITO0O= i 
| 2138 “EQUIV §IT09,8ITS 
«140 “EQUIV BITO8.8ITS 
2141 “EQUIV BITO7,BIT7 
2142 “EQUIV BITO6,BITE 
eis3 -EQUIV B1T05, 8175 
es a . 
ER “EOUEY Bttoa errs 
| e146 “EQUIV BITOe,8IT2 
2147 “EQUIV BITO1,8IT1 
e:4e “EQUIV BITOC,S8ITO 
2150 -*BASIC “CPU” TRAP VECTOR ADDRESSES 
| BLE] o09004 ERRVECS 4 $3 Ne OUT AND OTHER ERRORS 
| pyse 909010 RESVEC= 10 i RESERV ay AND ILLEGAL INSTRUCTIONS 
2153 000014 TBITVEC=14 ist *"BI 
2154 000014 TRIVEC= 14 ACE TRAP 
215s 900014 TVEC= Be AKPOINT TRAP (BPT) 
e136 900020 OTVEC= 20 ;;INPUT/QUTPUT TRAP (IOT) ##SCOPE* 
157 000024 WRVEC= 24 L 
eit 500036 ENT ECs 30 tT EMULATOR R TRAP (EMT) *#ERROR** 
2160 090060 Tkvecs bo Ty KE YEOH VECTOR 
| Biel 009964 TPVEC= :TTY PRINTER VECTOR 
gifs 900240 Ere : PROGRAM INTERRUPT REQUEST VECTOR 
51: BTTL SeHORY codeine DEFINITION 
gies s#KT11 VECTOR ADDRESS 
e187 oo0250 MMVEC= 250 
€ 
1&9 :#KTLL STATUS REGISTER ADDRESSES 


MD-1L1-DZREN-C - PKG LI oo ..ee VERIF. : PART 2 MACY1L1 27(1006) OS-O0CT-76 10:59 PAGE 45 SES 0044 
DZRENC.P11 — OS-OcT MEMORY MANAGEMENT DEFINITIONS 
217 a 
2171 17757 SRO= 177572 
£i72 177574 SRl= 177574 
gi23 27576 SRe= 177876 
git 172516 SR3= 172516 
e128 ;*KERNEL “I PAGE DESCRIPTOR REGISTERS 
¢ 
2178 172300 KIPORO= 172300 
2173 172302 KIPDOR1= 172302 
2180 172304 KIPDRe= 172304 
2181 172306 KIPDR3= 172306 
£18e 172310 KIPORY= 172310 
2183 l723le KIPORS= 1723le 
2184 172314 KIPDRE&= 172314 
it 172316 KIPDR7= 172316 
4 ;*#KERNEL "I" PAGE ADDRESS REGISTERS 
4 ’ 
eles 172340 KIPARO= iron 
2130 172342 KIPARL= 172342 
2191 17 KIPAR2= 172344 
2132 172346 KIPARS= 1723%6 
2193 KIPARY= 172550 
2194 7esSe KIPARS= 172 
213s 172354 KIPAR&= 172354 
It, 172356 KIPAR7= 
219é 170200 MAPLOO=170200 
2193 170202 MAPHOO=170202 , 
2200 172100 MEMCSR=172100 ;MEMORY CSR REG START ADRS 
220i 177740 LOERAD=177740 11/70 MEM LO ERROR ADRS REG 
2202 177742 HIERAD=17 7746 :11 /70 MEM HI ERROR ADRS REG 
2203 177744 MEMSYS=177744 :11/70 MEM CYSTEM REG 
.SBTTL TRAP CATCHER 
2205 
2206 ooo0co0 20 
e207 ;#ALL *UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2,HALT” 
2208 :*SEGUENCE TO CATCH ILLEGAL TRAPS AND INTE T 
ssi n0017% LOCA ee CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
2211 000174 900000 DISPREG: .WORD 4 ;;SOFTWARE DISPLAY REGISTER 
2ele 000176 000000 SWREG: WORD ;;SOFTWARE SWITCH REGISTER 
2213 -SBTTL STARTING ROORE SS ES) 
ssid ooc200 poo sg? 01344 JMP Won aeDFSTR ;;JUMP TO STARTING ADDRESS OF PROGRAM 
2el6 000170 9000000 KILLOR: “NORD 0 ;IF NOT = O, IT IS OK TO OVERLAY LOADER 
2217 000204 .=204 
gsig 000204 137 013510 oT ay D*ePSTART 
ece0 000224 000137 023634 JMP DBASTART 
ecel 090230 000700 OW: .WORD 700 
cece 000232 001100 HIGH WORD 1100 
gsce ‘SBTTL Acti Moors 
2 ; 
eects 5 RRRRRERERE REE REERRAAA AREA E ERE REEE REEL ER REAR ERERRELAREREERERE ESE 





~~ 


fu 
mw 
fj 


ian] 
RAMPART A A a 


DZRE 
ee 
ee 
ee 
ee 
ee 
ee 
ee 
35 
ge 
ee 
ee 
ec4 


1 mS lie - grants ZRKOG SUBSYS. 
Pil 10:07 


000046 
0000S2 





ACT11. HOOKS 
sHOOKS REQUIRED BY ACTLI 
$SVPC=. 


.WORD 
AVECTI=120210 p84 3% 210 
ABASE=177440 - KBAS ADR 
ADE VM=000377 4 ae DEVICES O-7 IN MAP 
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S P :SAVE PC 
SENDAD +:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
“WORD 140000 ;32)SET LoC.52 TO 140000 
" =$SVPC t: RESTORE PC 


.=1000 
.SBTTL APT PARAMETER BLOCK 


- LEREEREREREERRERLLL AEE REE EERE ER AEE RAE LLL EALELEE EELS EEREER EEE SS 
APT 


SE LOCATIONS 24 AND 44 AS REQUIRED FOR 


5 EERRREELERRREE RRA EREE REE EEL EE EE EE EEE RAE EE ALAR SEER EE EE EE EES REESE 

-$X=. —  ; SAVE CURRENT LOCATION 

=24 ii Pee POWER FAIL TO POINT TO START OF PROGRAM 

200 ;FOR APT START _UP 
POINT TC APT INDIRECT ADDRESS PNTR. 
SAPTHOR HBSINt TQ APT HEADER BLOCK 
$x ;RESET LOCATION COUNTER 
ETT err erere erie ter tent rt er eeeeererer rrr err rr errr ttre 
UP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


INTERFACE SPEC. 


SAPTHD: 

SHIBTS: .WORD O :;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

§MBADR: [WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: .WORD 1130 ::RUN TIM OF LONGEST TEST 

SPASTM: .WORD 3410 =; ; RUN TINE IN SECS. OF IST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: .WORD 3410 “ADDITIONAL RUN TIME (SECS) OF A pase FOR EACH ADDITIONAL UNIT 
SeTEND-ShbiL 72 :;LENGTH MAI 


LBOX-E TABLE (WORDS) 
RKPRI= 











-11-DZREN-C 
DZRENC. Pll 


2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 001190 
2267 901100 
e268 01102 
2268 001103 
2270 001104 
2271 001106 
e272 01110 
2273 OOllle 
Bory OO1114 
2275 OO1115 
2276 OO11i6 
2277 001120 
e278 OOllee 
2279 O0lle4 
2280 OOl1e6 
2281 001130 
2282 001132 
2283 901134 
2284 001135 
e285 001136 
2286 001140 
2267 001142 
2268 001144 
gee? 001146 
2250 90110 
5s Be 
5545 Soliee 
2294 01156 
e295 901157 
229 01160 
2297 

2298 01162 
2299 OO11e4 
2300 OOlles 
2301 001170 
2302 001172 
2303 001174 
2304 001176 
2305 001200 
2306 01202 
2307 901204 
2308 01206 
2308 O012i6 
Bt Bus 
512 Soisie 
2313 001220 
2314 O0lz22 


- RK&1i Ay pea VERIF. 
0S-0CT- 76 1 


PART 2 
COMMON TAGS 


MACY1i 27( 1006) 


-SETTL COMMON TAGS 


s SRSSSSSSSSE SSSA SALE SASERESE RARE SSL E LRA ELSA FS RELSL FF SFL FFLELESE 
THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM 


001100 -21100 

$CMTAG: 

000000 . WORD 
000 $TSTNM: .BYTE 
000 SERFLG: .BYTE 

000000 SICNT: .WORD 

000000 SLPADR: .WORD 

a8 Be ie 
000 SITE BYTE 
001 SERMAX: .BYTE 

ooc000 SERRPC: .WORD 

000006 SGDADR: .WORD 

000000 $8D . WORD 

000000 _ §$GDDAT: .WORD 

003008 SBDDAT: .WORD 

000008 . WORD 

000000 . WORD 
000 SAUTOB: .BYT 
500 SINTAG: .BYT 

000090 . WORD 

177570 SUR: WORD 

177570 piscuavs sHOne 

177560 TKS: 17756 

177582 STKE: 177 9bE 

177564 STPS: 177564 

177566 STPB: 177566 
pee ne -BvTe 

Ce LLS: .BYT 
Ole SFILLC: .BYTE 
008 STPFLG: .BYTE 

ooo000 SREGAD: .WORD 

000008 SREGO: .WORD 

000008 SREG1: .WORD 

000000 SREGe: .WORD 

000000 SREG3: .WORD 

000000 SREG4: .WORD 

000000 SREGS: .WORD 

000000 SREGE: .WORD 

000000 SREG7: .WORD 

rere SREGI1O: .WORD 

= Beal: i 

0000 SREG13: .WORD 

090000 SREG14: . WORD 

herd SREGIS: rin 

SREGIE: .WOR 
000000 SREG17: . WORD 
000090 $REG20: .WORD 


3 Sa aeaee ONdN0N0N0000 


WR 
DDISP 


iat) 


OVDOOOOOVOVOOKOO0OO000 OOr-wvoO 
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;;START OF COMMON TAGS 


NTAINS 
ECON NTAINS BaD’ “DRT 
;;RESERVED--NOT TO Me USED 


;;AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 


3; ADDRESS OF SWITCH REGISTER 


;;ADDRESS OF apuar en REGISTER 

ss TTY KBD STATUS 
Hi PRINTER eFatus REG. ADDRESS 
;; TTY PRINTER BUFFER REG. BOORES= 
;;CONTAINS NULL CHARACTER FOR FILLS 
;:;CONTAINS # OF FILLER CHARACTERS REGUIRED 
;; INSERT FILL CHARS. AFTER A “LI 
;;" TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 
;;CONTAINS THE ADDRESS FROM 
;;WHICH (S$REGO) WAS OBTAINED 
;;CONTAINS (($REGAD) +0) 
;;CONTAINS (($REGAD)+2) 
;;CONTAINS (($REGAD) +4) 
;;CONTAINS (($REGAD)+6) 
;;CONTAINS (($REGAD)+10) 
;;CONTAINS (($REGAD)+12) 
;;CONTAINS (($REGAD)+14) 
;;CONTAINS (($REGAD) +16) 
;;CONTAINS (($REGAD) +20) 
;;CONTAINS (($REGAD) +22) 
; ; CONTAINS (Care e50} 
;;CONTAINS (($REGAD) +26) 
;;CONTA ( ($REGAD ) +30) 
;;CONTAINS (($REGAD) +32) 
3 CONTAIN ( (SREGAD) +34) 


SEG CO46 





MO-11-DZREN-C - wet on in. _ ee hola PART 2 


DZRENC.P11 0S-OCT-7 OMMON TAGS 
2315 001224 9000 $REG21: .WORD 0 s:CONTAINS (($REGAD) +42) 
2216 Seige: cat SRE Coe, “WORD «Q ::CONTAINS (($REGAD) +44) 
2317 001230 900000 SREGos: .WORD 0 ::CONTRINS (($REGAD) +46) 
2318 O01 SREGe: “WORD =O : : CONTAINS (($REGAD ) +59) 
2219 O01 SREGSS: (WORD 0 CONTAINS (($REGAD) +52) 
FE 001 SREGS6: .WORD 0 CONTAINS (($REGAD) +54) 
2 001 SREG27: .WORD O ::CONTAINS (($REGAD)+56) 
FE oc REGSO: .WOR : !:CONTAINS (($REGAD)+50) 

i REG31: .WOR :CONTAINS (($REGAD) +62) 
001 SREG32: .WORD OO ::CONTAINS (($REGAD)+64) 
001 SREG33: .WORD 0 CONTAINS ( ($REGAD) +66) 
001 SREGIY: .WORD OO. ss CONTAINS ($REGAD }+70) 
SEE SE: “HOR f + EONTAIN ( ($REGAD) +74) 
SREGI?: - WORD 0 ; CONTAINS t (SREGAD) +76) 
e3 She : WOR ; i TheER REFINED 
z 1 TMP: [WORD 0 ?:USER DEFINED 
ae ee ee feats 
oe ie ie aie 
2237 001300 $TMP7: WORD 0 ;;USER DEFINED 
2338 001302 STMP10: .WORD O ::USER DEFINED 
2239 901304 900000 STIMES: 0 ::MAX. NUMBER OF ITERATIONS 
2240 001306 00 SESCAPE ; ESCAPE ON ERROR ADDRES 
2341 001310 177607 000377 SBELL: .ASCIZ 207) «377 <377) ti FOR BELL 
2242 901314 077 SQUES: .ASCITI ::QUESTION MARK 
2343 901315 O15 SCRLF: .ASCIT ag ;;CARRIAGE RETURN 
2244 O0131& oo00iz2 SLF: SCIZ2 <12> FE 
2a4s » Sik babe thik ebb aha waa ae ae ee 
es4é *BTTL APT MAILBOX-ETABLE 
eats gs HELE SEES RSRFLAKSESAAAE RA LELA LEAR ALE EEALALAALE LALA EFAAAAERALESTEE 
2249 * EVEN 

Beet Pbt Ee srcati: .woRD aMsGTy fine Bitte FORE CODE 
5223 “bt raf : iW BratAL sERT RROR NUMBER 
2253 001324 STESTN: WORD RIESIN TEs u 
e22¢ rate spree: “HOR ADEVET epee Coun a 
esse obi 33 SUNIT: - WORD BUNTT :1/0 UNIT NUMBER 
2258 Bot eae sears: “HOR AMSGL tineee ayaa 
2253 001340 ETABLE: APT NVTRONM NT TABLE 
pat pated? B08 SENV: .BYT NV $s ENV 0 Y 

1 O01341 SENVM: = BYT NVM VIR NT HO BITS 
este 001242 000000 SSUREG: - WORD BSUREG erate REGISTER 
36a. Soisue SHES. “WORD BGPUGr i:CBU TYPE GPTTONS 
2265 :# bi Ss 15-11=CPU TYPE 
2266 ;# 
2367 1 tio 0=06'PD9=07, 
22E8  & BIT 10=REAL TIME’ CLOCK 
2269 # 81T Q=FLOATING POINT PROCESSOR 
2370 ; BIT S=MEMORY MANAGEMENT 
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05-OCT-76 


11/04=01,11/05=0e, 2 14/E0803, 11/40=04, 11/45=05 
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SES 


0047 
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DZRENC.F 05-OCT-76 
2371 001350 000 
ey 001351 009 
45 
2375 
53: 001352 oo00c0 
2378 
2379 001354 000 
2380 001355 000 
2381 901356 000900 
ae 
s3e5 Boise? BBE 
2384 SO:3e2 000000 
ue 
see ieee = BEY 
eR ies 
1 
2331 001376 000277 
5x35 001406 


VERIF. 


: PART 2 
APT MAILBOX-E TABLE 
SMAMS1: .BYTE 
SMTYPL: .BYTE 
# 

7% 
-+* 
SMADRI: WORD 
$mamS2e: .BYTE 
SMTYP2: .BYTE 
SMADRe: .WORD 
3: .BYT 
MT -BYT 
$MADR2: .WORD 
MAMS4: .BYT 
MTYP4: “BYT 
eo i 
ayEET: WOR 
SBASE: .WORD 
$DEV! . WORD 
SETE 


MACY11 27( 1006) 


AMAMS 1 
AMTYP1 


;; HIGH age og ae me BYTE 


iene tvee ete . 


900 NSEC CORE= 
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(H gH BYTE) 


300 NSEC oe gee 


; ;HIGH Abb 
M.LAST 
aes wie D 


YPE, 
‘nen last’ 


Bieta 
5 SE Ai 


a Ogee 


ADDR. 
RESS 


ROORESS, BLK #2 
M.S: BYTE 


T ADDRESS 
T VECTORt BUS, PR 


— OF EQUIPMENT UNDER TEST 


OR vet 
PRIORI 


SEG o04e 


=] "ayTES, , THIS WORD AND LOW OF “TYPE” ABOVE 





cei - RKE 


DZRENC .P 


2410 


ot a ah ab ah a at a 
b—* 0+ b= b b2 bo hs pe be 
WOM UU £ tore 


e421 


05-007 


062004 
063570 
063734 


db ‘e.F. 
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ERROR POINTER TABLE 


.SETTL ERROR POINTER TABLE 


BU ER EN REIT UIY SFRSRRS 


THE TOeLE is PERTINENT. 
}- e Sit SLY PERT TRENT enATA IS ($ 
seers: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


:* is $SESTNT TO THE ERROR MESSAGE 
;* 2 uy alls HEADER 

:# DT : ; POINT 
;* OF 


POINTS 13 THE DATA FORMAT 


SERRTB: 


ERROR 1 ;UNIBUS PARITY ERROR 
OHi00 

07100 

OFO1 


ta 2 ;NON-EXISTANT MEMORY 
DH100 

DT100 

OFO1 


pEanOR 3 ;NON-EXISTANT ORIVE 
DH100 

DT100 

DFO1 


;ERROR 4 ;UNIT FIELD ERROR 


DH100 
OT100 
DFOL 


;ERROR S ;SUBSYSTEM TIMEOUT 


-ERROR 6 
EMG :D TO C PARITY ERROR 
DH100 

07100 

DFO3 


-ERROR 7 
EN7 ;DRIVE DETECTED PARITY ERROR 


MO-11-DZREN-C - RKG&1i/RKOG SUBSYS. VERIF. 
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DZRENC.F11 
2450 00146 
2451 
suey Baido8 
B4s5 001474 
e456 001476 
2457 
e458 
e463 001500 

e460 001502 

+ 2461 001504 

; 2462 001506 

> Bug3 

* Buey 
465 001510 
e4e— 001512 
2467 001514 
e468 001516 
2468 
2470 
2471 001520 
e472 001522 
2473 001524 
2474 001526 
2475 
S476 

22 901530 
478 001532 
2475 001534 
2480 001536 
248i 
5ug5 o01suo 
e484 001542 
e485 001544 
B4eE O01546 
2487 
e4e8 
e489 01550 
2480 001552 
248i 001554 
2485 O0155e 
2493 
e4s4 
2485 OO1SED 
e4% 00156 
497 OO1564 
498 OO156e 

36 
2500 
2501 001570 
2502 001572 
2503 001574 
2504 001576 


| 





063770 
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ERROR POINTER TABLE 


OFO3 
;ERROR 10 


bu 
H100 
07100 
OF Oe 


-ERROR 11 
EM 


-ERROR 12 
EM1e 
DHiO0 
07100 
DFOe2 


;ERROR 13 
M 


-ERROR 14 
EM14 
DH190 
OT100 


;ERROR 15 
M15 


-ERROR 16 
EM 


ERROR 20 
EMeg 
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;AC LOW 


;SPEED LOSS 


; ILLEGAL FUNCTION 


;PROGRAMMING ERROR 


;NON-EXISTANT FUNCTION 


;DRIVE TYPE ERROR 


;FORMAT ERROR 


;WRITE LOCK ERROR 


;DRIVE UNSAFE 
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057333 


062004 
bes?24 


ERROR 21 
EM21 
DHIOO 
Brae. 


“ERROR 22 
EM 


sERROR 24 
ENe4 
HIOO0 
DT100 
DFOe2 


;ERROR 25 
M 


“ERROR 31 
§M31 
DH100 
OT100 
DFOS 


ERROR 32 
§n32 
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;SEEK INCOMPLETE 


;CYLINDER OVERFLOW 


; ILLEGAL CYLINDER 


;DRIVE OFF TRACK 


;DRIVE TIMING ERROR 


;DATA LATE 


;CONTROLLER TIMEOUT 


;OPERATION INCOMPLETE 


;HEADER YRC ERROR 


;DATA CHECK ERROR 
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sERROR 34 
ERROR 35 
“ERROR 36 
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;ERROR 37 
M37 
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;ERROR 41 
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;ERROR 42 
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;WRITE CHECK ERROR 


;DATA MISCOMPARE(S) 


;NO DRIVE RESPONSE-UFE & NXD 


SDRIVE ERROR WILL NOT CLEAR 


;DRIVE STATUS CHANGE WILL NOT CLEAR 


> 


;ATTENTION BUT NO STATUS CHANGE OR FAULT 
SATTENTION BUT DRIVE NOT AVAILABLE 


SATTENTION WHEN NOT EXPECTED 


ERROR WHILE GATHERING DRIVE STATUS 


3 e 


penee 


Sele 


wane 
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ig Dozoz: 064200 OF 12 
,ERROR 4 o a oe > - -- 
gpe030 o420 tMe3 sCLEAR CONTROLLER DID NOT CLEAR ERROR 
632 06s 54100 
3 002034 -063570 67100 
4200 OF 12 
. -ERROR 45 are 
oo204o oB0MES ay) sNO ATTENTION IN ATTENTION SUMMARY REG 
d02042 62004 DHL 
002044 063570 Tl 
O0e046 664200 12 
i -ERROR 46 
o02050 pres sUNSOLICITED ATTENTION 
fs be sts 
002056 064200 OF] 
-EPROR 47 
002060 o6osse EMEE sUNEXPECTED DATA TYPE ERROR 
3? BRESeS BbsP2 pies 
42 502066 Sesea8 Bet 
- ERROR 
392975 060611 os - sATTENTION DID NOT RESET WITH CLEAR 
eove Dbe004 199 
002074 063670 07100 
002076 d€4200 DF 12 
-ERROR S1 - é 
002100 E0650 E670 sSUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION 
0021 9e DH100 
002104 063670 OT100 
002106 064200 DF 12 
-ERROR Se 
002110 060200 Evce sMULTIPLE DRIVE SELECT 
O0zi12 54190 
902114 063579 OT] 
COziie 664200 OF} 
-ERROR $3 : 
002120 o&deze §Ms3 ;ABREVIATED HCE ERROR 
OGele2e O62004 5H100 
O0ele4 963670 57100 
Odeiee 64230 DF13 
ERROR S4 
002130 Os7S26 £620 s OPERATION INCOMPLETE ERROR 
02132 d62004 5H100 
592134 063570 67100 
O021% 64260 OF 14 
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;ABREVIATED HVRC ERROR 

32 Lace ERROR 

;2ND LEVEL IN SUBSYSTEM TIMEOUT 

;ERROR IN RECAL FOR RECOVERY 

;ABORT MESSAGE 

sCYLINOER MISCOMPARE 

;DATA ERROR WORDS 

;CLEAR CONTROLLER DID NOT CLEAR ERROR 
;NO ATTENTION IN ATTENTION — REG 


;UNSOLICITED ATTENTION 


SES 90S4 
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DERENC. P11 3e-58t-7e 10:5? ERROR POINTER TABLE : 
| 2730 ode2S2 62004 DH100 
273] 02254 063570 br490 
| 3 002256 O&ST34 F 
:ERROR 67 
2732S O02260 O0SSE EMGE sUNEXPECTED DATA TYPE ERROR 
e262 062004 190 
f w $4 oi T100 
38 002266 0637 Droe 
f 
2740 “ERROR 70 
2741 902270 080611 . 67 sATTENTION DID NOT RESET WITH CLEAR 
| erie 002272 O62004 100 
002274 063570 OT100 
a74e -ERROR 71 
274? 002300 O60650 EM70 ;SUBSYSTEM CLEAR DID NOT CLEAR ATT 
e74e O02302 962004 DH100 
e748 002304 O¢ OT100 
£730 00230¢ 0637 DFOe2 
2752 -ERROR 72 “ 
| 2753 002310 060717 M71 ;DATA LATE WHEN UNLOADING HEADER 
| B754 902312 d62004 54100 | 
| p755 O0e314 963670 0T100 
«e756 «6002316 0637 DFO2 
sree ERROR 73 
£733 002320 ? EN72 ;CONTROLLER ERROR DURING DRIVER SERVICE 
002322 962004 5150 
| #761 002324 063570 O7100 
| 2762 002326 063734 DFO2 
= eS “ERROR 74 
—«B7ES «002220 061026 EN73 ;DRIVE DETECTED PARITY ERROR - 
 »«-~p78BR «-OOe332 D2004 54100 
ere 2225 0635 OT100 
06233¢ OF Oe 
2763 
ae -ERROR 75 
340 061062 EM74 ; UNDEFINED ERRCR 
002342 62004 DH1C0 
344 063570 OT100 
| 002346 663734 


;ERROR 76 
M75 ;MARKING SECTOR BAD MESSAGE 


E 

002252 
O02254 00000 0 
900000 0 


| -ERROR 77 
002360 061132 EM76 BAD DATA VERIFICATION WITH READ 
002362 062771 Os 
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ABLE 
100 
;RETRY SUCCESFUL MESSAGE 
101 
;ANOTHER RETRY SUCCESSFUL MESSAGE 
102 
sRETRY UNSUCCESSFUL MESSAGE 
103 
;NO VALID HEADERS IN TRACK JUST READ 
104 
;BSE ERROR ON SECTOR NOT LISTED AS BAD 
l 
105 
; TIMED-OUT ON READ HEADER 
106 
;TIMED-OUT ON SEEK 
107 
;DRIVE SIEZED BY OTHER PORT 
110 


;"DATA MISCMPR WHILE SAI SET” 


SEG O0Sé 
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| Bese sERROR 111 Mae 
2843 002500 o6154 eNO? :"NO NEM WHEN EXPECTED 
ee4s 902504 5 
| 2 Gee Be 
¢ 
2846 “ERROR 112 
264s op251¢ Ob 1615 ape s“INTRPT WHEN CNTRLR NOT READY” 
2851 002514 063670 7100 
2es2 O02516 063704 DFO) : 
4 ;ERR 1i3 
SE22  ooesz0 Ob 1646 ate : s°NO ATT'N ON SEEK", 2’ 
2857 002524 063570 OT100 
e558 002526 063734 o2 
2860 -ERROR 114 
2861 902530 061667 EMil2 ;DRIVE’S CYLINDER INCORRECT 
Es poses 063630 OT202 
| pPBe5 
«BREE “ERROR 115 
| p867 odes4o sOD000 6 TYPE ADRS OF DATA MISCOMPARE‘S) 
seee eee 063654 OTe01 
2870 Beseue 064160 
pel 
«a7 -ERROR 116 
873 o02550 057637 §M34 sDATA MISCOMPARE (11/70) 
2576 oo2s5& Of 20 
| ~§672 Q0ese9 00008 6 ;PART OF DATA MISCOMPARE 
«BBB «= OO2SE4 70 0T100 
| Beee 064464 DF22 
ges 70 061722 ‘on pes ABORT- CAN'T READ BSF 
os ten bon He seg 
e288 002576 0637 DFO] 
2e99 -ERROR 121 
533 500 961750 EMA :KT11 FAILURE 
2693 002604 bE S670 OT100 
ee C0260 064570 OF 30 


| Bese -ERROR 122 
697 002610 OC&17E5 EMLIS ;MEM PARITY ERROR 
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BIT ASSIGNMENTS IN THE RK611 REGISTERS 


. ' 
; RW! RO $ RO $ RW! RO PS RW PE RW PE RW P' 


ROY! JE ! SPARE! FY ! F2 ! Fe ! FL ! GO 
DRAW! RE RUE RWE RW! RW! RE RW 


: OR ! IR ! CLR ! BAI ! DESL! DS2 ! OS! ! 050 ! 
>; RO $ RO '!WO !RW ! RW PE RW SRW ERY ! 


; oc? ! 0c ! OCS ! OCH ! OC2 ! DC2 ! DCl1 ! DCO ! 
; READ ONLY : 


UN ! UN ! UN !SA4 !sA3 ! SAe ! Sal ! SAO ! 
: READ ONLY 


SES COSS 


i ee 


A 
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236i 
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;RKDB (DATA SUFFER) 
; 18 14 13 


: ? 6 5 4 3 2 1 0 
: DB? ! DBS ! 08S ! DBY ! DBI ! DB2 ! DBL ! DBO 
READ /WRITE 


PUN! OF& ! OFS ! OF4 ! OF3 ! OF2 ! OFL ! OFO 
i READ /WRITE 


cist ! W014 ! WCi3 ! we ! well ! wid $ WC9 ! Wee ! 
; READ/WRITE : 


Pe? ! WO WS WOH ! WS ! woe ! Wl ! WCO ! 
; READ/WRITE q 


;BAIS ! BAILY ! BALZ ! BAL2 ! BALL ! BALO ! BAI ! BAe ! 
; READ/WRITE ; 


: BA7 ! BAB ! BAS ! BAY ! BAZ ! BAe ! BAL ! BAO ! 
: READ/WRITE 'ALWYSO! 








SEI 


. 0080 
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:RKER (ERROR REGISTER) 
: 15 Ae: BES ass | ed ok ee 
> DCK ! UNS ! OPI ! DTE ! WLE 

: READ ONLY 


: BSE! ECH ! DTYPE! FMTE ! DRPAR! ILF ! SKI ! ILC ! 
; READ ONLY 


© | 
‘3 SoS | det 
r 0 0 0 b= od pe 
OO) LN OWONO WML tu 
— “ay . 7. - el 
Pas 
oO ™" 
w 
=) 
za 
| oad 
<= o 
m 
w 
= 
D 
—4 
c wm 
= 
+ 
— — 
— Ww — 
_ 
ee Orem 
oO tj mR oO 
QQ 
w Qiw 
- m 
Land x= 
oo _— = io 
o;rmo wa) 
a, 


3028 sSVAL ! DSC ! PIP ! SPON ! WRL ! UN ! UN ! DTP 
; READ ONLY 
3030 § Peewee n mewn nnn mene nnn nnn n nnn se ne neesenesenenesoenn 
3031 
2032 c=? 6 5 4 3 2 i 0 
3034 :DRDY ! VV ! DROT ! SPLS ! ACLO ! OFSET! UN ! DRA ! 
3035 ; READ ONLY $ 
soe 
| 3038 RKMR1 oes ne 1) 
a : 10 + 8 
| 3042 “RD! WRT ! ECCW! : PCD ! PCA ! MEWD ! MERD ! MCLK ! 
| 3042 :GATE ! GATE ! 3 : : : ; 
| 3043 : READ ONLY ! READ/WRITE ! 
3044 § eee mm ewe m nero ero reewener coor enereseneesenswcsoscescore 
; 045 
ae Be 6 S 4 3 2 1 0 
2048 :MIND ! MSP ! DMD ! PAT !MS3 !MS2 !MS1 ! MSO ! 
: READ/WRITE : 


ie 
3.0 
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;RKECC/PAT 
; 5 14 


! UN ! UN ! EPAIO! EPAS ! EPS ! 
READ ONLY : 






3067 ; UN ! UN ! UN ! EPOl2! EPCii$ EPOLO! EPOS ! Epos ! 
3068 ; READ ONL‘ : 
3069 Benn nn nnn nnn nnn nn nnn nnn nnn nnn nnn nnnnnna= 
3070 

ie t ¥ 6 5 4 3 2 1 0 
3073 EPO7 ! EPOB ! EPOS ! EPOY ! EPOS ! EPOe2 ! EPOL ! EPOO 
30 EAD 

3078 

3079 ;LINE A MESSAGE 00 

2080 ; 18 14 13 12 ll 10 3 8 
3081 § errr nn ene nnn nn seen ns eseseneeserenen= 
2082 ; PAR ! DSC ! : : : : : : 
3083 Benn nnn nnn nn sn nnn nn nnn nnn nnn nn nnn nena nnnnnn= 
3084 

2085 

SOBs a a a a a a a a a a a a a a me ee 


74 : 
3076 : 
3077 :DRIVE STATUS INFORMATION 
j 
| 
| 
| 
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;LINE B MESSAGE 00 
; 15 14 13 





3100 LINE A MESSAGE 01 
3101 : 14 12 11 10 = g 
3185 : PAR ! UNLDG! RTZ ! LDG ! REV ! FWO ! SPEED! CART ! 
3104 : i i i i 
3105 { etewedapoccennennnnnnwnnencnnacennnennnanennnnenennnna= 
108 
3107 : ¥ 6 = 4 3 2 1 0 
193 !DOOR ! BRUSH! HEADS! TRK ! UN ! DRIVE SELECT CODE ! 
110 :LTCH ! HOME } HOME FoLoni i i 
3111 : i OK i i 
3lle ee 
3113 
3114 ;LINE B MESSAGE OL 
ils 12 11 10 g 2 
3117 ; PAR ! SERVO! LIMIT! SEEK ! PLO ! DIBIT! INDEX! MULTI! 
3118 : 1 BRAKE! ON SKINO MO! ERR # ERR? ERR HD SEL! 
3120 ; 
gigi a & c 4 3 2 1 0 
3123 ‘HEAD 'WRGTE'WR CUR! SEC ' NU !' NU! OF! 1 ! 
3124 :FAULT! AND NO'AND NO! ERR ! i i i i 
sigs IXISTON'WR GTE! i i 4 i i 
. 
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BIT ASSIGNMENTS IN THE RKE11 REGISTERS 


;LINE A MESSAGE 10 
15 14 13 


2 11 aa 2 
: PAR! NU ! NU ! CYLINDER DIFF/OFFSET VALUE ! 
: 7 6 5 4 3 2 1 0 


; PAR ! ALIGN! NU ! CYLINDER ADRESS 
i SIGN ! 3 i 
a ii a a te oR haere x < i Shi aii 
SS E 5 4 3 2 1 0 

; CYLINDER ADDRESS P uN! WwW! 1! ' 


3 2 il 10 9 Q 

: PAR ! DRIVE SERIAL NUMBER ' 
; >? 6 5 4 3 2 1 0 

: DRIVE SERIAL NUMBER ! DRIVE SELECT CODE ! 
sLINE 8 MESSAGE 11 

: 14 2 ll 10 9 8 

: PAR! NU ! WU ! DECODED HEAD ! SECTOR! 
: i i i ADDRESS i COUNT ! 
- , 6 5 4 3 2 1 0 

: SECTOR COUNT *’ uN ! UN! 2! 21! 


RKO& CONTROLLER REGISTER DEFINITION 
; CONTROL AND STATUS REGISTER 1 
NT REGISTER 


S REGISTER 
‘ DESIRED TRACK SECTOR REGISTER 
0 :CONTROL AND STATUS REGISTER 2 


—-O7cMVoO 
={eF= 
oo 
ww 
»D 
Oo 
Oo 
wa 
m 
w 


SES 0064 


re oS 
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OZRENC.P11 OS-0CT-76 1 
3183 000012 
st 00014 

! 5 
3187 000020 
3188 00 
3189 000 
3190 000034 
3191 000036 
3192 000030 
3193 000030 
3194 090032 
3195 003e 
3196 
3197 
3198 
3199 000101 
3200 000103 
2 BB 
3203 000111 
3204 009113 
Ot 
3207 000121 
3208 p00123 
32093 000125 
3210 900127 
gell 000131 
gele 
3213 
3214 
eat 000140 
3217 000141 
3218 000164 
3219 0001 
seed 000177 
geel 000300 
gece 
3223 
gee4 
sR 
Jee? 
ge28 
3ee9 
3230 000001 
3231 000109 
se3e 000200 
3e33 000400 
3234 oes 
es 
3237 
3238 010000 


NOS 


: PART MACY11 27(1006)_ OS-OCT-7& 10:59 PAGE && SEQ 0055 
RKOG CONTROLLER REGISTER DEFINITION 
RKDS= ile ;DRIVE STATUS REGISTER 
RKER= 14 s ERROR REGISTE 
RKASOF= ib TENTION MARY AND OFFSET REGISTER 

DC= BES RED CYLINDER REGISTER 
RKDCYL= 20 ; DESIRED CYLINDER REGISTER 
RKDB= 24 ;DATA_ BUFFER 
RKMR1= 26 ;MAINTENANCE REGISTER 1 
RKMRe= 34 :MAINTENANCE REGISTER ; 
RKMR3= ; MAINTENANCE STER 

KPOS= 30 ;ECC POSITION INFORMATION 
RKECPS= 30 ;ECC POSITION INFORMATION 
RKPAT= 32 ECC PATTERN INFORMATION 
RKECPT= 3e ECC PATTERN INFORMATION 

-SBTTL DRIVE COMMANDS 
SELDRV= 101 ;SELECT DRIVE 
PACK= 103 :PACK ACKNOWLEDGE 
CLEAR= 105 ;DR IVE CLEAR 
UNLOAD= 107 ; UNLOAD 
SRTSPL= 111 :START SPINDLE 
RECAL= 113 ;RECALIBRATE 
OFFSET= 115 ; FFSET 
SEEK= 117 ; SEEK 
RDDATA= lel ;READ DAT 
WRDATA= 123 BATA 
RDHEAD= 125 TREAD H HEADER 

RHEAD= 127 :WRITE HEADER AND DATA 
WRTCHK= 131 :WRITE CHECK 
: THE FOLLOWING ARE NOT DRIVE COMMANDS BUT ARE USED BY THE DRIVER 
; TO SIMULATE A SPECIFIC DESIRED OPERATION 
RELEAS= 140 ;RELEASE DRIVE 
RDSTAT= 141 :GET ALL STATUS FROM DRIVE 
RDALHD= 164 ;READ ALL HEAD 
CONCLR= 176 :CONTROLLER CLEAR (BIT_15 OF CS1) 
SUBCLR= 177 : SUBSYSTEM CLEAR (BIT 5 OF CSe2) 
INTR= 300 ;GENERATE INTERRUPT TO CPU 
; DRIVER ISSUED SERVICE COMMANDS 
DOR.SEL= 001 ;DRIVE SELECT 
DR.CLR= O05 DRIVE CLEAR 
-SBTTL CONTROL AND STATUS REGISTER 1 BITS 
GO= BITO ;G0_ BIT 
IE= BITE ; INTERRUPT ENABLE 
RDY= BIT? ;CONTROLLER READY 
BAl6= BIT8 ;BUS pion te att 18 
BAi7= BITS ;BUS_ADDRE 
cOT= BI TiO CONTROLLER oF! IVE Type (O=RKO6) 
CT0= IT11 RIVE. RESP = QUT WAITING FOR 
CFMT= BITle ‘CONTROLLER “DRIVE FORMAT (O=22 SECTOR, 1=20 SECTOR) 


! 
| “l1-D27R&N-¢ - RKELI-RKDE SUBSYS. vERIF _: PART 2 -OCT-76 10:59 PAGE 67 SEG 20te 
Se28c* il 5e2584i-5 78. 3° ONTROL ako statis Sarre | 
| 3233 920000 sPaR= 81713 sDRIVE BUS PARTY ERROR DETECTED BY CONTROLLER 
| 0 640009 Ol BITL4 :DRIVE INTERRUPT 
3241 300000 CERR= BIT) SCONTROLLER ERROR ° . 
#4 100000 CCLe= BIT :CONTROLLER CLEAR, 
ae ; THESE SIT DEFIN S ARE USED FOR ADDRESS 
ci : THE HIGH BYTE BT KCS1 
3247 900001 B.5Alg= BITO SS BIT 16 
38 gots : BAl7= pee :BUS ADD $5 et! 1? Kei 
505554 COt= BIT : CONTROLLER DRIVE TYPE (O=RKOE) 
3550 000020 B.CRMT=s BITS ;CONTROLLER DRIVE FORMAT (O=22 SECTOR, 1220 SECT? 
| 35 .SBTTL CONTROL AND STATUS REGISTER 2 BITS 
| 3254 900007 DRVMSK= a MASK FOR DRIVE SELECTION CODE a ie 
| = 1 = 4 $ i3 U- 
 ~=#e sete Res’ Etta PESELECT Of GetEAcE DRIVE IN BITS ond 
3257 900029 BAI= 1T4 BUS ROQRESS I NT INHIBIT 
3258 500045 tLR=s its [CLEAR CONTROLLER AND ALL DRIVES 
3255 999049 SCLR= T :CLEAR CON ALL DRIVES 
| 3260 0051300 z ITé ; INPUT Y 
_ 361 909206 OR= IT? :OUTPUT READY 
3e5¢ 000450 UFE= ITs UNIT FIELD § 
| 001000 MOS= 1T§ !MULTIPLE DRIVE SELECT 
| 3264 902000 PGE=  BITIO ‘PROGRAMMING ERROR 
3zts 004000 NEM= i s NONEXTat NT MEMORY 
388 810000 NED= T} !NON-EXISTENT DRIVE 
| 920000 < ITl :UNIBUS PARITY ERROR 
Hee 049000 wees  BIT14 :WRITE CHECK ERROR 
2263 100006 DLT=  BITis :DATA LATE ERROR 
| 357] SBTTL ERROR REGISTER BIT DEFINITION 
2558 900001 ILC= ITO s ILLEGAL FUNCTION CODE 
3274 #ILF= BIT0 : ILLEGAL FUNCTION CODE 
3375 po000e2 SkJ= siti : SEEK INCOMPLETE 
| 3¢ 909004 ILF= Elle SILLEGAL DRIVE FUNCTION 
| 3 000004 NXFs IT : ILLEGAL DRIVE FUNCTION 
| seze 060010 DRPAR= BITS :DRIVE DETECTED ORIVE SUS PARITY ERROR 
| 3278 900026 FMTEs BIT4 “FORMAT ERROR 
see ponese : TYEs BITS :DRIVE TYPE ERROR 
} 61 CH= BITE :ECC HARD 
«eee 099200 . SSE= BIT? :BAD SECTOR ERROR 
383 95490 HCRCs BITS :HEADER CRC ERRROR 
| 0004 HVRCs BITS :HEADER VRC ERR’ 
«gees 1 COE} BITS sC¥L LINDER SobRESS OVERFLOW ERROR 
aces IDAE= Eiri : INV LID O DISK RODRESS ERROR 
WLE= BIT11 sWRITE LOCK ERR 
«See 910000 OTE= B1Tle :DRIVE TIMING ERR 
3285 0200 OPI=  BIT13 : OPERATION NeeERCAS INCOMPLETE 
ss 4 UNS= BIT14 ;DRIVE UNS 
$62 100000 Cke  &ITIs :DATA CHECK 
#232 SBTTL STATUS REGISTER SIT DEFINITION 


fot ee eee ee 


RUA U RRS 
: 


NcEil Os-ore=7e IE 

«aS 900001 
se 

| 3397 00004 
#2 si 

| 3300 6026 

se B200%2 
S3 000200 
330 900200 
3305 00400 
33 40 
330° FEa558 

| 350 40900 

| $203 100005 
Boe 

| ae 000017 
is 09020 
33] 00504 

! sis 

22 Be 

| 3 cyte 

| BR 

| Hee 610000 

/ Bs 620000 

| ges O40000 

| 100008 
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| 
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«343 sono 

i gs 

oad 0C1000 

002000 
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STAT us REGISTER BIT DEFINITION 


oRA= «BITC pamela 1S SET IF 
oFsTs pite OR 
SPbL Sse eitd mF 0 LOSS 

ITY :DC LOW 
Bests BHT sORIVE OFF TRACK 
vite t :VOLUME VALID 
ORYs BIT DRIVE REABY 
DROY= att, : Y 
pots te :DRIVE TYPE (O2RKO6) 
ete: gitis iPoSIT TONING. IN PROGRESS 
pst= gi T18 ZORIVE STATUS CHANGE 
SvAL= BITIS 'STATUS VALID 


-SBTTL MAINTENANCE REGISTER i BIT DEFINITION 


MESMSK= 17 ;MESSAGE MASK 
PAT= BI7v4 ;FORCE Even PARITY ON DRIVE BUS MESSAGE LINES 
= BITS DY STI DE 
= BITE > MAINTE SECTOR PULSE 
hy Bite hs by E eee 
= 2 
NERS: «BITS {MAINTENANCE ENCODED READ _D 
MEWD= BtTi9 ; MAINTENACNE ODED WRITE DATA 
PCA= Tll ; PRECOMPENSAT ION ROvENCE 
PCD= BITle PREC COMPENSATION DELA 
ECCW=s BIT13 :ECC WORD IS BEING READ OR WRITTEN 
WRTGAT= BIT14 : WRI TE GATE 
ROGATE= BITIS ;READ GATE 
.SETTL DEFINITION OF DRIVE STATUS BYTE O0 MESSAGE A 
S.ORA= BITS sPRT VE AVAILIABLE 
€.VVv= BIT6 s VOLUME VALID 
S.ORY= BIT7 iter READY 
S.TYPE= BITS sORIVE TYPE 
S.FORM= BITS sDRIVE FORMAT 
S.OFF= BITIO ; OFFSET 
S.WRL= BITLI1 ;WRITE LOCK 
S.SPIN= BITle ;SPINDLE ON 
S.PIP= BIT13 sPOSITIONING IN PROGRESS 
§.0SC= BIT14 sDRIVE STATUS CHANGE 


-SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE 8 


S.ICYL= BITS 5 TLLEGAL CYLINDER ADDRESS 

S.ACLO= BITE OW 

S.FLT= BIT? iORIVE f'. 

S.ILF= B1T8 ; ILLEGAL F 

S.PAR= B8IT9 : DRIVE betecTeG DRIVE BUS PARITY ERROR 
S.SKI= BITIO ;SEEK INCOMPLETE 

S.WE= 8171) WRITE LOCK ERROR 

S.SPLS= BITle ;SPEED LOSS 
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| g3) 000766 
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GEFINITION OF DRIVE Si 


Beate E715 
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05-0CT- 10:59 PAGE 6S 
ATUS BYTE OO MES 8 


Bete OFF TRACK 
[DRIVE UNSAFE 


~SBTTL DEFINITION OF ORIVE STATUS BYTE O01 MESSAGE A 
; TRANSOUCER OK 
;HEROS HOME 


; BRUSHES HOME 
;DOOR_ INTERLOCKED 

: CARTRAGE ne 
:SPEED OK 


-SBTTL DEFINITION OF DRIVE STATUS BYTE O01 MESSAGE B 


-WOLK= BITS 


S35 


aoe 


reTrrerrrreT 
= mn 
SeuuD 

woe " 


fWwrue-O 





;SECTOR ERROR 
sWRITE CLOCK AND NO WRITE GATE 
ents AND NO TRANSISTIONS 


;BYT 

SEYLTNOER DIFFERENCE “OFFSET 
;CYLINDER ADDRESS 

Bat VE SERIA NUMBER 
;SECTOR COU 

; HEAD Becooe 
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7? PARAMETER BLOCK ALLOCATION 


c .SETTL PARAMETER BLOCK ALLOCATION 


| 
| 
| 3 
| 3394 
aig :% pegpeaegerenneasaniecenae is ee 
5 :# 1 ! DRIVE NO. 0 
3237 :# 3 : EYLINDER ADDRESS 2 
| aics :% 3 ' TRACK ’ OR i ~ 
7 iBALG-17,FORMAT,ORV TYPE! OFFSET i ¢ 
3400 71)! BUS ADDRESS S (LOW 16 B Ts) ' 10 
2451 te 13 i WORD COUN ce cONP i j2 
3455 :# 15 § PROGRAM DRIVE STATUS ORMATION i iy 
ae HL | Siaes 89 ater Retizee 2 Z 
| a3 in i GORD COUNT REST ctER i 
| Soe ese i BrerReD TRE Reais SECTOR i Se 
| yds :# rf i BES TRES Ca The i 30 
a5 :# 3 Of BTTENTION SUMMARY AND DRIVE OFFSET 32 
- ; 
RE iy 35 j ERROR PESLPCER, i 3 
| sue :# 41 !§ MESSAGE LINE A STATUS BYTE 00 i 40 
| #3 7# 43 | MESSAGE LINE B STATUS BYTE 00 i yp 
SG -# 45 #§ MESSAGE LINE A STATUS BYTE O1 i 44 
| Byls :# 47 § MESSAGE LINE 8 STATUS BYTE O1 i 4g 
IE :# 51  !§ MESSAGE LINE A STATUS BYTE iso 
| Sui? :# 53  # MESSAGE LINE 8 STATUS BYTE 10 t &3 
| 3418 :# 55 § MESSAGE LINE A STATUS BYTE 11 i &y 
3419 :# 5? #§ MESSAGE LINE B STATUS BYTE 11 i 5 
3420 + BL i ECC POSITION INFORMATI i 60 
el -# 63. § ECC PATTERN INFORMATION i §2 
i auss .@ @ EE ELEREEEEEREEEEER EERE EE EEEEE EEE EEE EEEEE EER ER ERS 
| aes sy PARAMETERS PASSED TO THE DRIVER 
 -Bape se THE FOLLOWING DEFINITIONS ARE USED TO PASS PARAMETERS 
| 3467 =. 0 THE RKO& DRIVER 
3436 P.DRVN= 0 DRIVE NUMBER 
| 3430 aia P.CMND= | :C 
3431 P-CYLN= 2 s CYLINDER ADDRESS 
3435 000004 PSECT= 4 :SECTO 
| 433 090005 P-TRCK= S ‘BGK 
3434 P-OFST= & : OFFSET 
3435 00690 P-CSIH= 7 "RKCS1 BITS 9-15 
3436 P-BAHI= 7 “BUS ADDRESS (BITS 16 BNO 17) 
3437 900910 P-BALO= 10 : BUS AQDRE 2S (BITS O-1 
3436 000012 P'ucs ile :WORD COUNT (2°S COMP CEMENT 
2133 00004 P_PRST= 14 : PROGRAM DRIVE STATUS ENEORMATION 
sH41 \SBTTL PROGRAM DEVICE STATUS REGISTER DEFINITION 
B43 900001 DRVUSE= BITO 
44 DRVPOSs a DRIVE POs TT ony 
4c OTs SlTe ‘BEI POSIT SNEDS FOR DATA TRANSFER 
B44E 900010 UEXATT= BITS s UNEXPECTED ATTENTION 


eh? AOC IT4 :D I S HARD ERROR 
44e side BRvoeee Bite 'DRIVE STATUS CHANGE DID NOT CLEAR 


FO6 
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PROGRAM DEVICE Be " GISTER DEFINITION 
CMDTO= BITS :NO TERMINATION TO COMMAND FOR AT 
u. slicks B1T7 twat Foor WRITE WRITE CHECK 
HK: BITS :NO tet g DO NOT SET INTERRUPT ENABLE 
PRSVALS B1T9 ; PARAMETER STATUS WORDS VALID 
xg : (SET WHEN ERROR TERMINATION OR 
: READ STATUS CO 
DRPDRV= SITIO :DR IVE FROM TEST og 
NODSC= BITL :ATTENTION SET BUT DCS AND FAULT RESET 
DRVSZD= BITiec ;DRIVE SEIZED BY OTHER PORT 
E.UNLD= BITI3 :DRIVE | ED DUE TO ERROR 
G.INIT= 81714 :PARAMETER BLOCK ENQUEUED IN INITIATION QUEUE 
DTBAII= BITIS : INHIBIT BUS ADDRESS INCREMENT 


-SBTTL PARAMETERS PASSED FROM DRIVER TO PROGRAM 
THE FOLLOWING DEFINITIONS ARE USED Daan REGISTER RETURNS 





: FROM THE DRIVER TO THE CALLING PI 
P.CSi= 16 ;COMMAND AND STATUS REGISTER i 
P.CSe= 20 ;COMMAND AND STATUS REGISTER i 
P.WCR= 22 :WORD COUNT REGISTER 
P.BARP= 24 BUS ADDRESS REGISTER 
P.DTS= 26 :DESIRED TRACK SECTOR REGISTER 
P.DCYL= 30 : DESIRED CYLINDER REGISTER 
P.ASOF= 32 ZATTENTION SUMMARY/OFFSET REGISTER 
P.ER= 34 ERROR REGISTER 
P.DS= ;STATUS REGIST 
P.A0D= 40 ;MESSAGE A STA 00 
P.B00= Ye ;MESSAGE B STATUS BYTE 00 
P.AQI= 44 ;MESSAGE & STATUS BYTE Ol 
P.B0l= 46 ;MESSAGE B STATUS BYTE 0 
P.AlQ= 50 ;MESSGGE A STATUS BYTE 1 
P.B10= Se ;MESSAGE B STATUS BYTE 10 
P.All= 54 ;MESSAGE A eTaT® BYTE 11 
P.Bll= S6 ;MESSAGE B STATUS BYTE 11 
P.EPOS= 60 ECC POSITION INFORMATION 
P.EPAT= &2 ECC PATTERN INFORMATION 
-SBTTL PARAMETER BLOCK O FOR DRIVE 
PARMO: .BYTE 0 jDRIVE NUMBER 

-BYTE OQ MMA 

-WORD Q iC YLINDER ADDRESS 

-BYTE 0 :SECTOR ADDRESS 

-BYTE OQ ; TRACK ADDRESS 

-BYT 0 ; OFFSET Ma 

.BYT 0 ;BUS ADDRESS (BITS 16 AND 17) 

-WORD OQ ;BUS RQOR +t (BITS yy 15) 

-WORD Q ;WOR T_(2°S COMPLEMENT ) 

-WORD OQ ‘PROGRAM DRIVE STATUS xine Geen LOM 

ait 0 ; COMMAND AND STATUS REGISTER 

HW 0 ;COMMAND AND STATUS REGISTER ; 

-WORD OQ ;WORD COUNT REGISTER 

-WORD OQ ;BUS ADDRESS REGISTER 

-WORD 0 :DESIRED TRACK AND SECTOR REGISTER 
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ll PARAMETER BLOCK 0 
3505 02650 WORD 0 : DESIRED CYLINDER REGISTER 
2208 gpebee - WORD p !ATTENTION SUMMARY/OFFSET REGISTER 
3 2 ‘ERROR REGISTER 
3508 02656 .WORD OQ “STATUS REGISTER 
3503 02660. .WORD *MESSAGE LINE @ STATUS BYTE 00 
sei? ShSeeS ono iMeseace CINE & STATUS BYTE 51 
zie Bese? 7 5 : 2encF LENE B 5 aTue BYTE 5 
3513 002670 WORD ;MESSAGE LINE A STATUS BYTE 10 
3514 002672 ‘ 0 sMESSAGE LINE B STATUS BYTE 10 
3215 74 We : »MESSA LINE A : ATUS BYTE 
1g 7& W MESSAGE LINE 8 STATUS BYTE 11 
31 700 .WORD OQ :ECC POSITION INFORMATION 
3318 WORD O ECC PATTERN INFORMATION 
ae0 .S8TTL PARAMETER BLOCK 1 FOR DRIVE 
3522 092704 PARMI: .BYTE 0 ;DRIVE NUMBER 
3523 002705 .BYTE OQ :C 
3524 002706 -WORD QO :CYLINDER ADDRESS 
3525 002710 -BYTE OQ :SECTOR ADDRESS 
3526 002711 % :BYTE ; TRACK ADDRESS 
3527 002712 .BYTE 9 : T VALUE 
238 002713 -BYT : + BUS ADDRESS ( 118 16 AND 17) 
002714 WOR :B DRESS (BITS O - 15) 
3530 002716 .WORD 0 : OUNT (2°S COMPLEMENT) 
3531 002720 .WORD 0 : PRO! DRIVE STATUS INFORMATION 
3532 002722 .WORD QO :COMMAND AND STATUS REGISTER 1 
3533 002724 .WORD 0 :COMMAND AND STATUS REGISTER 2 
3534 002726 .WORD O :WORD COUNT REGISTER 
3535 002730 .WORD 9Q :BUS ADDRESS REGISTER 
3536 002732 .WORD 0 :DESIRED TRACK AND SECTOR REGISTER 
3537 002734 .WORD 0 :DESIRED CYLINDER REGISTER 
3638 002736 .WORD =6C :ATTENTION SUMMARY/OFFSET REGISTER 
3539 9002740 .WORD 0 :ERROR REGISTER 
3549 002742 900000 .WORD 0 :STATUS REGISTER 
341 obe7 44 000900 - WORD 0 im SSAGE LINE A STATUS BY BYTE 99 
nnn 7 ; 
324 Spee 28 sideica WO 5 iMeeeace tINE 8 ST ATHe gyre 8 01 
000000 .WORD O :MESSAGE LINE B STATUS BYTE 21 
WO : ; sence LINE A STATUS BY BYTE 10 
WO :MES LINE B STATUS BYTE 10 
.WORD OQ ;MESSAGE LINE A STATUS BYT 
.WORD OQ SSace LINE 8 STATUS BYTE 11 
-WORD 0 :ECC POSITION INFORMATION 
.WORD O :ECC PATTERN INFORMATION 





3$Se -SBTTL TEMPORARY CONTROLLER REGISTER STORAGE 


3$53 : 
seee 002770 900000 T.CS1: .WORD Be FOR COMMAND AND STATUS 
s228 002772 000000 T.CSé: .WORD ; TEMPORARY STORAGE FOR COMMAND AND STATUS 


; TEMPORARY STORAGE FOR WORD COUNT REGISTER 
: TEMPORARY STORAGE FOR BUS ADDRESS REGISTER 


eee 002774 00 oo prise 
TEMPORARY STORAGE FOR DISK TRACK AND SECTOR 


002776 . ee 
3560 003000 000000 T.DA:  .WORD 


o00 Oo Oo 
= 
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MACY11 
TEMPORARY CONTROLLER RE 


RSF: “WORD 


27( 
GIST 


(DB: cd 


W.MTIM: 
W.MILI: 


-WORD 400 
-WORD 400 


100 
ER 
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STORAGE 


es wo ge Oe See os os ce we sees 


it re eeany + S19 FOR DAL VE YLINDER 
TO FOR ATTENTION SUMMARY 


TORAGE FOR Brive RE 


i MPORARY § GISTER 
a panne FOR it ALi! US aceterce 


theterny 


TEMPORARY STORA 


FOR ECC PATTERN 
TEMPORARY STORA T 


FOR DATA BUFFER REGISTER 


;ADDRESS OF RK611 UNIBUS ADDRESS BLOCK 
ADDRESS OF R611 VECTOR 

:RKS11 INTERRUPT PRIORITY 

ADDRESS OF NORMAL RETURN FROM DRIVER 


S CLEARED WHEN EVERY COMMAND 
; IF A CONTROLLER ERROR 
; ie THE FOLLOWING BIT ASSIGNMENT IS 


: CLEAR aa DID NOT CLEAR ERROR 
;NO_ATTENTION IN ATTENTION SUMMARY REG 
:UNSOLICATED ATTENTION (SEQUENTIAL ONLY? 

; UNEXPECTED we A ERROR 
ATTENTION DID NOT RESET WITH CLEAR 
:SUssyTEM CLEAR DID NOT CLEAR DRIVE 


VER Ses & 
TE WHEN UNLOADING HEADER 
LER ERROR DURING ad Naa SERVICING 
‘BRIVE DETECTED ae ERR 
:CONTROLLER COMMAND TIME SUT (QUEUED ONLY) 
;MULTIPLE DRIVE SELECT 


atopy Me BLOCK OF THE DRIVE 
;WAITING FOR COMMAND COMPLETION 
;LOOP COUNTER FOR MILISECOND SCAN OF DRIVE 
516 MILISECOND TIME FOR PROGRAM 


~ oe VALUE 

11/05 100 
11/10 

11720 

11/34 

11/40 | 

1174S ~ 400 
11/50 

11/70 


SEG 0072 
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J 


ran) 


1-D2 
DIRENC.F1l «OS-OCT-76 1 DRIVER PARAMERTERS 
317 oo30s2 900300 W.SEC: .WORD 300 ;SECOND COUNT COUNT FOR ALL CoreNDS 
3613 903054 903000 W.SSEC: .WORD 3000 ig ERKGND FOR DRIVE CYCLE DOU 
3620 003056 930000 W.MIN: :WORD 30000 ;MINUTE TIME FOR START SPINDLE 
3621 003060 900000 HOR.AD: “WORD 0 ZADDRESS USED FOR READ ALL HEADERS 
3622 003062 HOR:CT: :WORD 0 sNOMBER, OF HEADERS LEFT TO RERD FOR READ 
355 pose 000 I.ISRL: .BYTE SINTERRUPT OR RELEASED COMMAND ISSUED 
3625 003065 002 00% O10 H-HEAD: ‘BYTE 2,4,10 ;HEAD DECODES 
see 000 Wi TIME: :BYTE 0 SDRIVES BEING WATCH-DOG TIMED 
3626 .SBTTL INTERRUPT MASKS 
#3 003071 000 INTMSK: .BYTE 0 ; INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK 
#25 INTERRUPT MASK TABLE 
? l I.DRV: .BYTE NTERRUPT MASK FOR DRIVE 0 
san78 02 ‘BYE 2 Hin NIERRUPT HAEK FOR DRIVE J 
3636 003074 004 BYTE 4 INTERRUPT MASK FOR DRIVE 2 
3637 003075 10 BYTE 10 SINTERRUPT MASK FOR DRIVE 3 
003076 0 BYTE 2 ZINTERRUPT MASK FOR DRIVE 4 
3639 040 BYTE 40 ; INTERRUPT MASK FOR DRIVE 5 
3640 BYTE 100 SINTERRUPT MASK FOR DRIVE 6 
241 003101 BYTE 200 SINTERRUPT MASK FOR DRIVE 7 
343 .SBTTL PARAMETER BLOCK TABLE 
| 3645 ooz10e oe620 PBLKT: PARMO ;ADDRESS OF PARAMETER BLOCK GIVEN WITH 
se SDRIVE CALL. MUST BE LOADED INTO PELKT 
| 
| #8 
3549 .SBTTL TIME FOR WATCH-DOG TIMER 
| 3651 003104 00000 W.ORV: WORD O TIME FOR INSTRUCTION IN PARAMETER BLOCK 
_ ~Hée "SBTTL PROGRAM SPECIFIC RESERVED LOCATION 
3653 003106 000  MDFLAG: .BYTE 0 ;FLAG TO INDIC. DEFLT OR PARAM MODE 
| 54 003107 000 XXDPCH: /BYTE 0 :XXDP_CHAIN MODE FLAG 
| 3655 002110 000 STING: -BYTE 0 :CURRENTLY RUNNING TESTS IF = 
3656 003111 000 DERCNT: ‘BYTE 0 :DATA ERROR COUNT 
| 3657 003112 O00 OPCOMP: ‘BYTE 0 ;OPERATION. COMPLETE FLAG 
| 358 003113 ONE: ‘BYTE 0 ;DON 
| 3652 O03114 900 TYPFMT: :BYTE 0 aN STYPE & FORMAT CONTROL 
| 360 903115 900 FORMAT: ‘BYTE 0 BRLY FORMAT IN BIT 4 OF BYTE 
3661 003116 O00 ERRCNT: ‘BYTE 0 
3662 003117 004 ERRLMT: :BYTE 4 JERROR LIMIT 
| 3663 003120 ORVERS: :BYTE 0 SERROR GOLNT FOR CURRENT DRIVE 
3664 003121 000 OPCONT: :BYTE 0 -iQPERATION CONTROL SUITCHES 
«Hes 003122 000 PCLKF: ‘BYTE 0 TE BVTE=1, KW11-P CLOCK 18 PRESENT 
 ‘Bee6 003123 000 OOTIM: ‘BYTE 0 {IF BYTE=1’ D0 TIMING TEST 
3667 002124 XOVLAD: ‘BYTE 0 flag = 1 tF XxDP 1 POSSIBLY OVERLAID 
«Bee 003125 000 XDPSVD: ‘BYTE 0 SFLAG = 1 IF SAVED 
«3668 003126 = 000 DULACS: ‘BYTE 0 FLAG IF DUAL ACCESS TEST 
3670 003127 AFG: :PYTE 0 eT INDICATES DRIVE STEZED BY OTHER PORT 
| 3671 003130 000 REISSU: :BYTE 0 ;DUAL-ACC FLAG TO RE-ISSUE COMMAND 
| 3672 003131 000 WCEFLG: ‘BYTE 0 SWRITE CHECK ERROR FLAG 
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& 10:07 PROGRAM SPECIFIC RESERVED LOCATIONS 
DL TFLG: BYTE 0 DATA LATE ERROR FLAG 
NeRPE : J BYT toNtaue MAP PRESENT TIF =1 
MEMABT: .BYTE 0 a Byte = 1 FOR NO ABORT 
pol MEMORY ae BRETY RRORS 
roe: eve Ug TE CATES PROGRAY JUST CORDED IF 0 
Mf tii Hoye vine oe or Pate 
HOSW=BIT1 VERIFY HEAD! 
CDASW=B8IT2 sWRITE chee Raa ae 
RCDASW=BITS :READ CHECK DATA SWITCH 
@u=B1T4 :OFFSET REQUIRED SWITCH 
LKS: WW 177546 sKWL1- + CLOCK STATUS REGISTER 
PKS: “WORD 172540 *KW11-P CONTROL BND STATUS REGISTER 
PKSB: .WORD 172542 :KW11-P COUNT ereieh REGISTER 
PKRB: .WORD 172544 ;KW11-P COUNTE “REGIS 
| LCVEC: .WORD 100 W11-L VECTOR 
: PCVEC: .WORD 104 KWL I-P VECTOR eT ORAGe 
MEMVEC=114 ‘MEMORY PARITY TRAP VECTOR 
TCONLO: .WORD 0 :LO BITS OF CALIBRATION TIME CONSTANT 
TCONHI: .WORD 0 ‘HI BITS OF CALIB TIME CONST 
BLWMIN: .WORD 0 :COUNT OF TIMES BELOW MIN 
ABVMX1: .WORD O :COUNT OF FORWARD TIMES ABOVE MA 
ABVMX2: .WORD O :COUNT OF REVERSE TIMES ABOVE MAX 
SUMLOI: .WORD 0 "LO BITS OF FORWARD TIME 
SUMHI L: WO : : BITS OF FORWARD TIME SU 
SUMLO2: ° WO : ITS OF REVERSE TIME SUM 
SUMHI2: .WORD HI BITS OF REVERSE TIME SUM 
SAVPAR: .WORD 0 :SAVE WORD FOR PAR CONSTANT 
SAVWRD: :.WORD 0 *SCRATCH WORD 
CYLLST: .BLKW D8 LIST OF PSEUDO-RAND CYL_ADDRESSES 
BSSOFT: :BLKW {D2S6 sRECORD OF BAD SECTORS FROM SOFTWARE 
BSFACT: .BLKW ftDeSé ORD OF BAD SECTORS FROM FACTORY 
PRVCMD: .BLKW 6 EVIOUS COMMAND STORAGE 
COMSTR: :BLKW 6 RENT COMMAND STORAGE 
PRMPLO: .WORD OO tr MAP REG O 
PRMPHO: .WO 0 
CRMPLO: :WO ;CURRENT U.B. MAP REG O 
CRMPHO: .W 0 
UFFO: .BLKW D6 s OUTPUT BUFFER 
LOWOCT: .W : Wig BITS be CONVERTED BINARY NUMBER 
HIGOCT: WORD LTGH ITS OF CONVERTED BINARY NO. 
UFPRT: .WORD 0 tie POINTER 
RECODE: .WORD 0 :RECOVERY CODE WORD 
ERRCOM: .WORD 0 ;ERR COMMAND 
DRIVE: .WORD 9 :NO. OF DRIVE IN USE 
STALLS: .WORD 0 :CURRENT NO. OF UNIT STALLS TO APPLY 
CYLNDR: .WORD 0 :CURRENT CYLINDER NUMBER 
S: .WORD 0 :FIRST SECTOR LI 
LS: .WORD OO ;LAST SECTOR LI 
NCYL1: .WORD 0 "NEXT CYL SCRATCH WORD 
NCYLe: .WORD O *NEXT CYL SCRATCH WORD 
OFINUS: .WORD 0 ‘OFFSET IN USE 
RACK: .WORD 0 : TRACK IN USE 


s€¢ 0074 
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DZRENC.P11 OS-OCT-76 10:07 PROGRAM SPECIFIC RESERVED LOCATIONS 
3729 ooooco INTCHR: .WORD 0 sTTY INTERRUPT INPUT WORD 
3730 095 999909 SELECT: “WO 0 : ANY iT SET IN LOW BYTE GIVES QUTO-SELECTED DRIVE NO. 
1 005 ONLINE: .WO 0 !ANY BIT SET IN LOW BYTE INDICATES A DRIVE WAS ON-LINE 
905530 900000 NEWON: .WORD =NEW LOOK AT ONLINE ¢ 
3? S32 o00000 SCRACH: :WORD 0 ALL-PURPOSE SCRATCH WORD 
005534 900000 PATRN: .WORD © :DATA PATTERN LIST 
735 DOSS 99009 XXDPAD: - WORD 0 SS TART ING fen, av OF XXDP LOADER 
3535 Bleed peoebs Aeopey: “EoRD 8 iC) OFF Free! Vik = 
3738 oossus NGOFST: .WO 0 ) OFFSE VALLE 
3039 30 S050 PRS: .BLKW : ‘CAVE iia ARAMS FOR XFER 
WOSXFR: [WORD °NO. OF WORDS ACTUALLY XFERRED 
741 OOSSE4 FINCYL: .W 0 -FINAL CYLINDER ADRS 
000 FINTRK: .BYTE 9 FINAL TRACK ADRS 
3743 005567 000 SEC: .BYTE 0 -FINAL SECTOR ADRS 
005570 999990 LASTWC: .WORD O !ACTUAL FINAL WC 
3745 905572 15 MAHILM: .WORD 157776 :MA UPPER LIMIT 
3748 005574 000077 "WORD 77 
3747 O05S76 O64640 MA: “WORD  RWBUF ;LO BITS OF PHYS MEM ADRS 
3748 005600 900000 “WORD g HI BITS OF PHYS MEM ADRS 
3749 O0S6f2 o00002 PMA: § . BLKW ‘PARTIAL TRANSFER MEMORY START ADRS 
ze 
3753 “LIST OF DESIRED DRIVES TO TEST (IF BYTE=0, DON’T TEST DRIVE) 
3754 DO0Sé06 ORVLST: 
3755 OOS606 001 .BYTE 1 :DRIVE 0 
005607 001 "BYTE 1 :DRIVE 1 
3757 005610 001 "BYTE 1 :DRIVE 2 
11 001 “BYTE 1 :DRIVE 3 
3759 005612 001 "BYTE } :DRIVE 4 
13 001 "BYTE 1 DRIVE 5 
3761 905614 “BYTE 1} ‘DRIVE 6 
15 001 "BYTE 1 :DRIVE 7 
3763 
ue 
sLIST OF ITERATION COUNTS FOR DESIRED TESTS (IF=0 TEST NOT RUN) 
3767 “MAXIMUM ALLOWABLE NUMBER OF ITERATIONS = 77776 (OCT 
68 OOSe1E TSTLST: 
3769 OOS61E oDD002 .WORD 2 TEST 1 
005620 o00002 “WORD 2 TEST 2 
s77s Dosess | ppnooS onD 8 Teer 4 
3773 005626 9000 “WORD 2 TEST S 
005630 000100 “WORD 100 :TEST 6 
3775 
3778 -LIST OF DEFAULT ITERATION COUNTS FOR ALL TESTS 
D0Sé32 bFLTST: 
3780 005632 oo0002 . WO! 2 TEST 1 
3781 005634 o00002 “WORD 2 :TEST 2 
37 36 000002 "WORD 2 :TEST 3 
37 40 900002 “WORD 2 TEST 4 
3784 O0S642 op0002 WORD 2 :TEST S 
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s 


3821 


Pil 


MO-11-DZREN-C - RK611/RKOG SUBSYS. VERIF. 
DZRENC. 05-OCT-76 10:07 


OOS644 060100 


O0CO0E 


000000 


PART 


e 


- WORD 


LO6 


MACY11 27( 1008) 


100 


NMTSTS=<DFLTST-TSTLST> 72 


p 
FC: 


- DEFAULT 
PROFLT: 


;OPERATING PARAMETER VALUE LOW AND HIGH LIMITS 


PRMLIM 


imc PARAMETER LIST 


632 


8 


WwW 


Sooyonove oO 


0 
631 


mw WwW 


CRORCRMOMNONONO oO 


OS-OCT-76 10:59 PAGE 77 
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; TEST 6 


;TOTAL NO. OF AUTOMATIC TESTS 


;FIRST CYLINDER 
:LAST pt 
FIRST Mews 


;LAST_T 


iF IRST SECTOR IF 20(DEC) SECTOR FMT 
20(DEC) SECTOR FMT 
FIRST BECTOR iF 22(0EC) SECTOR FMT 


T_ SECTOR IF 


:LAST SECTOR I 


at: SECTOR FMT 
WORD 


:DATA PATTERN SELECT 
;CONTROL SWITCH WORD 
:NUMBER OF UNIT STALLS 


20S DEFAULT 
'ST DEFAULT 


;FC LIMITS 
;LC LIMITS 


;FT LIMITS 
;LT LIMITS 
;S0 LIMITS 
351 LIMITS 
;S2 LIMITS 
353 LIMITS 
;PT LIMITS 


SES CO7E 


i ey 


MO-11-D, C- RK} i/RKO 
DZRENC.F11 0s- net -76 


3841 005764 
3842 005766 


abe 


177777 
A000 


RARGBORAN LE 
maim instetoe 


172765 


i. pee VERIF. 


PRM 


PART 
PROGRAM S 


.WORD 177777 
.WORD 0 

“HOR oo0&e2 
“WORD 177777 


;ASCII PARAMETER MNEMONICS 
NEM: 


-ASCII /FC/ 
-ASCII /LOZ 
-ASCII /FT/ 
-ASCII /LT/ 
-ASCII /SO/ 
-ASCII /S1/ 
-ASCII /Se2/ 
ASCII 7S3/ 
-ASCII /PT/ 
-ASCII 7CS/ 
-ASCII /ST/Z 


;DATA PATTERN OO 


batoo: 


HI-LO FREQ. MIX 
177777 


1768 


;DATA PATTERN O01 


bato: 


HI FREQ. PHASE MIX 


000000 


ECIFIC RESERVED LOCRTIONS © © 1OtS? PAGE 78 


;CS LIMITS 
;ST LIMITS 


SEG 0077 


ee 


MO-11-DZREN-C - RK&11/RKOE SUBSYS. VERIF. : PART 
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DZRENC.P11 


RSBRREERE 
RUS Thome 


Siolstastotsistaststss 


RERONR ESSERE EY 


Ww 
0 
fu 
a | 
Oo 
Re 


Stisttatats 


3 
5 
if 


OS-OCT-76 1 


2 MACY11 27( 1006) 
eae 
80005 
72777 
agbods 
77777 
ango0G 


;DATA PATTERN O02 


batoe: 


LO FREQ. PHASE MIX 


leSeSe2 


;DATA PATTERN 03 


batoa: 


MAX. PRECOM? PHASE MIX 


133333 
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SEG 0078 





ee le 


OPREN-C = RKGLL-RKOG SUBSYS. VERIF. ; PART MACYLI] 27(1006) OS-OCT-76 10:59 PAGE eC SEG 907 
E OS-024-% 16:67 PROGRAM SPECIFIC REstavED tos trom , “ 


;DRTA PATTERN O4 
ROTATING BOUNDARY PULSE PRECOMP. 


Barou: 
121105 121105 
150442 | e 
30 Oars Ob422 


D-) 


o- 
' 


ef 
* ee 


<a | 
: 


3674 
| Sen OETA PR EETING CELL PULSE PRECOMP 
3355 O&eE4 baros: ; 
2208 D56264 455 O264s5 
| 3679 O0e266 113226 113226 
3660 006270 45513 045513 
| ase theses ietses tefSoe 
| 3693 Boeere beaeey 064551 
| 3695 132264 132264 
365 006302 055132 055132 
Bee ie fe 
 3s6e pezi bize6 513 
«+389 12 1226 12264 
«$90 006214 «181322 151322 
«gee RaTE ecard ($224 
| 3693 Se aee O55 132 665132 
| 3694 
| 3ee¢ 
| 3996 :DATA PATTERN 06 
(3697 ALL ZEROS 


batos: 





aa 
o 





ee ee ee. 








Per eet ed Set ed et 
20D Jul £ Gate 


SS ESSEESES 
= 0 0 ee 


re 
as 


ssnnecnatasnan 
ey 


ih 


fe 
} 


i 


oog4e4 
4064 OOe4E4 





; 


1 


ae 


Bs 


: 


ee 


177776 


. VERIF. 
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-DATA PATTERN 07 
. ALL ONES 
PaTo?: 


UNIS 


;DATA PATTERN 
SHIFTED 1 IN FIELD OF ZEROS 


batoe: 


barog 


000001 


;DATA PATTERN 09 
SHIFTED O IN FIELD OF ONES 


177776 
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DZRENC.F11  OS-0CT-76 10:07 PROGRAM SPECIFIC RESERVED LOCATIONS 
] if 177775 
dbee Seease | }55558 eee 
4067? OO6472 177767 177767 
474 17732 177757 
4 476 177737 177737 
420 00€S500 17ree7 177677 
ra 4 ¢ ¢ 
aaos Boeess i in 
4073 006506 176777 176777 
4074 006519 1757 175777 
4075 606512 173777 173777 
soe Seeve eee 
d ¢ 
BES i 
73 «006522 0 
| 4089 
4081 
| 4OBS 
| 4083 DATA PATTERN 10 
4584 ALTERNATING O-1 
4085 o06S24 bari: 
| 4086 006524 oseses os52525 
O0652¢ 065535 052525 
| $088 006530 052635 052525 
4089 006532 052525 052525 
006534 52525 052525 
4091 006536 O52c55 052525 
4062 006540 052555 052525 
4083 O0e542 052555 052525 
| 4095 Does de os2s25 Sesese 
| 4OSE OOBECD OSa5c6 052525 
| 4097 OOESES 55555 052525 
w6ye 006554 052555 052525 
006556 o52535 052525 
4190 O0€ 052525 052525 
4101 O0E562 O52526 ose 
4102 
«8193 
_ 4105 
| 4105 :DATA PATTERN 11 
4106 : ALTERNATING 1-0 
/ 4107 QOOESEY PATI: 
| 4108 906564 125252 
| 4105 OO6S— 126255 125252 
4116 £70 leS25e2 125252 
4111 006572 125255 2s 
| 4112 O06574 [25365 125252 
4113 006576 126252 125252 
4115 lese52 
4lis 125252 25 
4116 O06604 125252 le52S2 
«4117 le5e52 52 
4118 O06610 125253 1 
| 119 O066le 125252 lese52 
«4120 «806614 125262 125252 


a a | 


| 
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DIRENC.P11  OS-OCT-76 10: PROGRAM SPECIFIC RESERVED LOCATIONS 
1121 OObE1E 1esese 1ese6e 
4] 
| 4] 
; 4] 
4] sDATA PATTERN 12 
$128 : SHIFTING ZEROS AND ONES i es 
t188 n0e6=e4 PaTi2: al ; : 
413] apeee? ppoesd 00000 
' 4132 006630 000007 
| 4133 006632 000017 600017 
Side Doeese | Boooes aeeees 
| 41% Bpeeas 000177 000177 
/ 137 OO6642 000377 0377 
| 4138 006644 000777 0777 
4139 006646 901777 001777 
| 4190 O06650 003777 003777 
| aide poeees 5 7777 017777 
5 possess 555555 037777 
| 19% 006680 077777 7?7ie 
4145 O06662 177777 177777 
/ SIME 
4147 
at :DATA PATTERN 
dtd? LoRpoSt TE ROTATING 
$151 006664 bari2: 
| 152 OO6664 072307 072307 
4153 OOEEE 135193 135143 
died Beeese tz8284 ieeesa 
4156 O06674 073514 0735 
«4157 7&6 O25646 035646 
4158 006700 016723 016723 
| 4159 107351 10735 
4160 006704 142564 143564 
| 416] 706 O6i672 O06 
4162 006710 020735 030735 
4163 O06712 114356 11435 
4164 006714 167 04616 
4¥1ES 006716 123073 123073 
4166 720 151453 151453 
4167 OOE722 IE4EIE 164616 
«4168 3 
4169 
4134 ;DATA PATTERN 14 
417. PSEUIDO-RANDOM (COMPUTED BY PROGRAM) 
4173 006724 bati4: 
4174 006724 900000 
4175 006726 c00000 WORD 


4176 006730 000000 “WORD 





a a ee — re 


at Dg oy - RKE11 
DZRENC.P 0S-OCT 


L/RK 
-76 





190 
4152 
41 006764 
4194 006764 O7e 
4195 006766 135143 
4136 006770 iS646: 
4197 77e 167230 
4198 774 073514 
4199 QO06776 O3S646 
4200 007000 016723 
4201 007002 107351 
ashs 007004 Ares 
4503 Go7018 Gs0Pse 
420S O070le 114356 
iste 14 046167 
4 16 123073 
4208 007020 151453 
4209 007022 i64é16 
4210 
4211 
42le 
4213 057467 
$214 000080 
4215 
4216 
4217 017500 
4218 
4213 112160 
4220 000 
422] 022370 
4222 000001 
4223 002734 
4ee4 016514 
4225 000632 
4226 000002 
4227 000365 
4228 000002 
4229 000004 
4230 000010 
4231 000020 
423e 000040 


06 


10: 


S$ 
0 


~ 


OF 
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7 PROGRAM SPECIFIC RESERVED LOCATIONS 
WORD 
WORD 
“WORD 
“WORD 
WORD 
te 
WORD 
WORD 
WORD 
WORD 
- USER-DEFINED DATA PATTERN 15 
PATIS: 
072307 ;WORD 90 
135143 “WORD O1 
156461 : WORD Oe 
167230 WORD 
073514 :WORD O4 
03564 :WORD OS 
016723 *WORD O& 
07351 :WORD 07 
siete WORD ii 
03073 : WORD i 
bet ioe 
133485 WORD 15 
151453 *WORD 16 
164616 WORD 17 
MINLO1=tD24375 :LO BITS OF SPEC’D MIN ROT. LATENCY 
MAM 0129025625 HT BITS OF SPES*D MAX ROT. LATENCY 
Neon tao tHI BITS OF SPEC’D MAX ROT. LATENCY 
MAXLO2=*D8000 :LO BITS OF SPEC’D MAX 1 CYL SEEK TIME 
MAXHI2=0 ‘HI BITS OF SPEC’D MAX 1 CYL SEEK TIME 
MAXLO3=1D38000 :LO BITS OF SPEC’D MAX AVG SEEK TIME 
MAXHIS= :HI BITS OF SPEC’ MAX AVG SEEK TIME 
MAXLO4=*D9464 :LO BITS OF SPEC’D MAX 410 CYL SEEK TIME 
MAXHI4= ‘HI BITS OF SPEC’D NA H10 Cyl SEEK TINE 
RNOSHT=tD1S500 :SHORT RANDOM SEEKS = 15001 
RNDLNG=*D75, “LONG RANDOM SEEKS = reentiOy 
LSTCYL=632 “LAST CYL. = 410(10) 
LSTTRK= :LAST TRACK =e 
ALNCYL=365 : ALIGNMENT. CYLINDER =245(10) 
ERR=BIT :BSE ERROR 
HVRCER=81T2 sHVRC ERROR 
OPIERR=BIT3 RROR 


DCKERR=BITY 
ECCNC=BITS 


;DATA CHECK ERROR 
ECC NON-CORRECTABLE 


oe 
see 
See 


BShihishihietishe 
Piatt tes tett it otal 


ie 
weve Dosoas 
007052 

| 

007202 

1 


SSS SSIS SISSIES 
: 3 


cee ES 
RBI 





BRER BBR 
ASC BoeR 


ruUul— UT O” 


GO? 
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PROGRAM SPECIFIC RESERVED LOCATION 
WOERR=B1T6 {WRITE CHECK ERROR 
ne = : 
LEV2ER=81T8 :LEVEL TWO ERROR 
PO FSSeeTTiO ere eth cure 
peoReeasi tte ire Sal toRASe REQUIRED 
ORNAVL=BIT1e :DRIVE NOT RELSO BY OTHER PORT 
ANYDER=BITIS ZANY ERROR DETECTED FLAG 

030455 DZREN: .ASCIZ <15><12>/MD-11-DZREN-C/ 

33122 

039113 SUBVER: .ASCIZ 8 - RK6L1/RKOG SUBSYSTEM VERIFICATION : PART 8 

051502 

20115 

047117 

051101 

000 PARTI: .ASCIZ /1/<15><12 
000 PART2: :ASCIZ 72/<18)<le> 

gy0s14 LSTMEM: .ASCIZ (ig) ta) 12> LAST PHYS MEM ADR = 

054510 

920115 

020075 

Q¥G122 OVLODR: .ASCIZ /OVERLAY LOADER ? (Y OR ND # / 

040517 yale 

020 

020122 

00004 

o40sz2 PRMINP: .ASCIZ <15><12>/PARAMETER INPUT MODE/<15><12><12> 

Oe0ie4 

005015 

O41040 RKBADR: .ASCIZ /RKOG BUS ADR = / 

051104 

OS3040 RKVADR: .ASCIZ /RKO& VEC ADR = / 

051104 

OSOO4O RKPRTY: .ASCIZ /RKOG PRIORITY =/ 

052111 

020075 SWRMSG: .ASCIZ /SWR = 

OS3S0S5 NEWMSG: .ASCIZ / NEW = 

053111 DRVSEG: .ASCIZ <15><12>/DRIVE(S) = 

036440 

O20105 BADORV: .ASCIZ /ORIVE / 

O424SS NXDRIV: .ASCIZ /NON-EXISTENT/<15><12> 





HO? 
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4289 007404 O44530 OS2el2e3 047105 


a3] Dersie rele reat 4 NTREDY: .ASCIZ /NOT READY/<15><1le> 
4 Saas 2365 : 1 gasses PAY. | 
: 026505 


WRTLOK: .ASCIZ /WRITE-LOCKED/<15>< 12> 


posi? 042504 ALNPAK: .ASCIZ /LOADED WITH ALIGN PACK/<15>< le) 


i 
aie: 
nb 
es 


REPLPK: .ASCIZ /IF XXDP PACK ON DRV 0, TYPE “Y <CR>", 8 REPLACE IT: / 


ators 
8 
a 
oOo 
2828 
HS at =r 
28 
Re 
g 
is 


8 
& 
: 


: 
: 

lo 

Ae 
RO 
atetates 
RRR 
SeSe 


é 

; 
gi 
a Bh 
ee 


NODRTS: .ASCII <15><12><12>/## NO DRIVES TO TEST/<15><12> 


+ 
tw 
~ 
~— 
8 
uy 
“I 
~ 
oO 
— 
uw 


007620 
4316 pegs 051120 OS1S505 020123 CNTRDY: .ASCIZ /PRESS “CONT” WHEN RDY/<15><le@> 


HLTRQD: .ASCIZ /HALT REQUESTED/<i5>< 12> 


4323 peers 104 O44S22 O425e6 DROXDP: .ASCIZ /DRIVE O IS LOAD MEDIUM’<15><1l2> 


43e8 O0077e4 hes OS2012 020117 ALDRVS: .ASCIZ <15><12><12>/TO TEST ALL ORIVES TYPE “A” <CR>, ELSE <CR>7<15><l2>/% + 


e 

a 

2 
P22 
< 
é 
R 
& 
R 


TSTMOS: .ASCII <15><12>/L = LIST TESTS/<15><1le> 


He 
é 
y= 
Oo 
gaz 
Se 


of 036440 pa ine -ASCII /C = CHANGE TESTS/<15><1le> 
040510 O43516 0201 
seg «i? OSeles 006523 


is 

Oo 
OOOoVOOoOOO 
= b= 0-2 8 b= 


REReBN 


~- 
OF 
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DZRENC.P11 | OS-OCT-76 10:07 PROGRAM SPECIFIC RESERVED LOCATIONS : 
4345 010053 11 =O36440 O444HO ASCIZ /1 = INPUT PARAMS, RUN TESTS/<1§) «12, 
daa BiBREP GeOtse BGeLsS 850039 
4 i OL 612 
4 ipor4 6104 12s 62040 
W349 10102 O61505 o51524 ooso1S 
W350 010110 000 ; 
4351 Q1O111 OS QueMe OEE11 ENTLCT: .ASCIZ <18)<12)/ENTER LC, OR 1/18)¢120/# / 
4 1D116 oS1106 O4e04o 041454 
4353 210124 e008) 051117 rf 
4 Gini e? “6 et reat OFTEST: .ASCIZ /TO DEFAULT TESTS TYPE D <CR>, ELSE <CR>/<1S><12>/# / 
4 TO194 o405 é1 
4357 O101S2 O42524 OS2123 O20le3 
4358 010160 42520 O42040 
43559 010166 051103 026076 
4360 10174 51614 O20105 
4361 OlGe0e O41474 O37iee OOSOLE 
4362 01021 600 
4363 010213 | 01S OS2012 OSISOS TLSTHD: .ASCIZ <15><12>/TEST | ITERATIONS/<15><12> 
4364 010220 o20124 OD O20040 
W365 010226 OS2111 061105 052101 
Hz O1004 O47611 05116 005015 
W327 O10242 000 
| 4368 O10243 O15 OS2012 O3644O EXPLAN: .ASCII (15)<12>/T = TYPE PARAM LIST/<15<12) 
| w3E9 D10e50 0 050131 0201 
| es Bee ae el 
i353 OtbSe2 Beciis ssase Boat ASCII /0 = OPEN PARAM LIST/<15><12> 
| 4373 910300 047105 OS0040 051101 
| ase Biosis pocees CMORIO OSisil 
| 4376 O10317 123 036440 oS1440 ASCII /S = SET INDIVIDUAL PARAM/<15><12> 
| 4377 O103e4 os2105 44440 O42116 
| 4378 010332 053111 O42111 O40 
| ded Bipsue Boece CVOBFQ CHOSee 
4381 010351 122 O36440 051040 ASCIZ /R = RUN TESTS/<15><12> 
| s3e3 Sipses peress poesie to RBe 
4384 010371 O15 O4241> OS2116 PARMDE: .ASCIZ <15)<12>ENTER T,0,S, OR R/<15><12> 
4385 019376 051105 Os2040 047454 
| Ger Dlowie Betoaa ppeoie COLEA 
| 4388 OIO4I17 —~ 015 O25012 DY42040 DURCES: .ASCIZ <15)<12>/# DUAL-ACCESS DATA TEST #/«15)<12> 
| $389 O10424 o4oSe5 O2e519 O41501 
W390 O10432 04 051523 
«4391 <D1O44O 52101 20101 o4ese4 
| 4362 O10446 052123 O25040 
/ 43393 O104S4 000 
| $885 IOES LIE O54101 O94ND MAWROC: .ASCIZ /MAX WORD COUNT = / 
4395 O104E2 051117 O20104 947503 
 mBSE «010470 047125 Os0124 mY 
| 4367 «010476 «000 
4398 010477 OS2 OP00S2 OSL4Y4D SECNLI: .ASCII /#* SO>S1/ 
| 4369 Dipsoy 99706) O50be 
4406 010510 


7040 O5e117 O4O44O0 NOTALD: .ASCIZ / NOT ALLOWED/<15>< 12> ° 4 


! 
! 


que one eee 





ac ce 


MO-11-DZREN-C - RKG1I/RKOE 
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oo 


PEFON LTOWSN 


1 
4401 010516 
a Riess 
Se ies 
oe Gey 

44 Bt 
4408 010560 
4409 010566 
4410 910574 
44] 1pe te 

+41 106: 
441 10612 
4414 010620 
4415 0106e6 
4416 010634 
4417 Mites 
4418 Q106 

4419 010656 
4420 010664 
4421 Steger 
H4ee 010674 
4423 010702 
e4 010710 
4425 010716 
4426 010724 
27 010732 
s4e8 019740 
4429 010746 
4430 010754 
4431 010762 
4432 010770 
4433 010776 
4434 011004 
“435 011012 
4436 011020 
4437 011026 
4438 011034 
4433 011035 
4440 011042 
4441 011050 
4442 011056 
4443 011064 

4444 Ol 

4445 01 

O01 

O01 

01 

Ol 

01 

0} 

1 

01 

01 

O1 

1 


+ b= 0 b+ 2 bs 2 bs 0 2 2 0 he 
b= b+ bs b+ b—* b= B= bo 


No 
Gn 


046114 
005015 


037 


PPROR 
Mentats 


e 


a hers 
-O0K—uN 
Reeves 


rs 
é 


BRRER BRRP 
8 


oO £0 
th fata 
= OUTTU Nie 


b-- b= bobs 


0S3517 


ee VERIF. 


SECNLe: .ASCIZ 
TRKNLW: 
WCEBIG: 


DFQUES: 


PFIFTN: 


SELP1S: 


MOFY1S: 


ENTPAS: 


DROPOR: 


TSTDRN: 


DRYNO: 
DRIV: 


: PART 2 - 
PROGRAM SPECIFIC RESERVED LOCATIONS 


% 


~ 


-ASCIZ 
,ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIT 


-ASCIZ 
-ASCIZ 


07 ; 
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/*% Ses3v 
/e® “FTDLT/ 
/#% WC OR MA TOO LARGE’<15><12> 


/TO DEFAULT ALL PARAMS, TYPE D <CR>, ELSE <CR>/<15><la>7# 7 


(15><12>/USER-DEFINED PATTERN 15 :7<15><12> 


(15><12>/MODIFY PATTERN 15 :7«15><l2> 


TO MODIFY PATTERN 15, TYPE M <CR>, ELSE <CR>/<1S><1l2>/% / 


415><12>/ENTER NO. OF PASSES (1-77777) :/<15><leo/e ¢ 


¢15><12>/%% DROPPING DRIVE - 20 ERRORS/<15>< 12> 


€15)<12><12>/TESTING DRIVE / 


4 /41§><12 
/ORIVE / 


sf¢ 0087 


ee ee eee ee ee e—V— 


MO-11-DZREN-C - RK611/RKOE 
DZRENC.P11 05-OCT-76 10:0 
1 

BE BOBS ose 
4459 011210 000 
“460 Qllell le3 051105 
4461 Qllel16 047516 Oe0056 
Se HES SHG Bae 

< 

4464 Q11le37 Ole O47Se3 
Se iY Oe Be 
Se HIS! ole ue 
4468 011264 035040 15 
“469 O1le71 O40 047040 
4470 011276 000105 
4471 
447, 
4473 
4474 011300 005015 O047412 
4475 011306 O42523 026524 
SF His Bes com 
oe Hie Bes es 
4479 011336 O05e116 O20le3 
4480 011344 005012 
4481 011346 051124 041501 
4482 011354 O4144O 046131 
4483 011362 O51440 O41505 
4484 11370 O2eS5440 043117 
4485 11376 Oe 047455 
4486 011404 006524 Ole 
4487 011407 O11 020011 
4488 011414 052450 047111 
4489 O1l4ee Oe4¥04O O44Se5 
4490 011430 15 000 
4491 
4492 
4493 011433 000 
4494 011434 000 
4495 011435 0i$ oos0le 
4496 01144e O200Se 045522 
4497 011450 O44040 0405 
4498 011456 046101 043511 
4499 O11464 047105 020124 
4500 011472 020104 
4501 011500 000012 
4502 011502 047506 020122 
4503 011510 050114 05204 

011516 020105 026110 
4¥50S O0115e% 051514 020105 
4506 011532 037122 O15 
4507 011537 Ole O40515 
4508 O11544 046101 O47440 
45038 011552 052501 7524 
4510 011560 O4e117 0105 
4511 O11566 O47440 Oe0l2e 
4512 011574 006477 O0001e 


024501 
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tur 


KO? 


MACY11 27(1006) OS-OCT-76 10:59 PAGE eS 


PROGRAM SPECIFIC RESERVED LOCATIONS 


CART:  .ASCIZ 
SERNM: .ASCIZ 
FACTBS: .ASCIZ 
SOFTBS: .ASCII 
BOSECT: .ASCIZ 
NOFALS: .ASCIZ 
-MESSAGES US 
iperen eae 
-ASCIT 
.ASCIZ 


UNLOD: .B 
VERIFY: . 
IDENT: .ASCIZ 


FORHLP: 


TYPMOD: 


-ASCIZ 


-ASCIZ 


“CART. / 
/SER. NO. / 
«15><12>/FACTORY / 


(1@>/SOFTWARE / 
/BAD SECTORS :/<15><l2> 


4 NONE/ 


T-TO-FAILURE TEST 
atin 1S) OF SE T-TO-FAILURE MEASUREMENTS :7¢15><12>< 12> 


“TRACK CYLN SECT +0FST -OFST/<15><12> 
{O11><O11>7 CUIN) (UIN)7¢15><12> 


;DRIVE UNLOADED INDICATOR 
/ MODE FLAG 


0 
; VER 
1S) ¢12) (12> eee RKO& HEAD ALIGNMENT AID ##%*/<15>< 12> 


/FOR HELP TYPE H, ELSE <CR>/<15><12> 


<12>/MANUAL OR AUTO MODE (M OR A)?/4<15><12> 


SES 00Sé 


Law J 
O07 
MD-11-DZREN-C - RKELI/RKOE SUBSYS. VERIF. : PART 2 MACY11 27(1006) OS-OCT-7& 10:59 PAGE 90 SEG cOss 
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di 
Ww 


005012 9200Se aged TYPMAN: .ASCIZ <12><12>7# MANUAL SELECT MODE #/<15><12> 


1600 
4514 1606 O05eS16 046101 
4515 1614 046105 iS0S 020124 
ei Hie baie Mae See 
4518 1633 Ole O47105 O42524 ENTDORV: .ASCIZ <l2>/ENTER ORIVE NO. (0-7):7<15><le 
4519 1640 O2e0lee 051104 053111 
4520 1646 020105 047516 O200 
4521 ree hones 033455 035051 
4523 bes bss pe oese O42040 NOTRDY: .ASCII /#* DRIVE / 
4525 1677 O40 O47040 052117 DRNRDY: .ASCII 7 NOT PEADY ! START DRIVE IF NECESSARY. 7<15>< 12> 
4525 1704 051040 O40SOS OS4SO4 
4527 i7le 020040 
45e8 1720 051101 Oe0i24 051104 
45e9 011726 OS3111 Oe0105 043111 
4530 1734 047040 041505 051505 
Bu Bins Ogg Ge eee 
4533 1751 O . OS3440 -ASCIZ / WHEN DRIVE IS READY, PRESS “CONT” ON CPU./«15><12> 
4534 1756 O42510 0e0116~ 05 
4535 1764 053111 0201 051511 
4536 1772 051040 040505 
4537 012000 Oe0054 11 

2006 OeOle3 O41442 047117 


tw 
oO 
= 
<= 
S 
— 
~ 
85 
oO 
oOo 
fu 
oO 
_ 
_ 
o” 


020052 — NONEXD: .ASCII /#* DRIVE / 


+ 
oO 
OOOVOOVOOHO OVO VOO OOOO OHO KHOOKOVOOKHOOKO DO VOKOKVDOVOVKOOKOOVVOVOOVKOOOVA00000 
rtatatnds 
pine 
tu 


ee ee a ee ee ee ee ee Be ee he be he be be ee bo bo be bs be bs bo = be ee be Be be be be ee 


4543 042526 “i 
4544 O40 047040 047117 ORVNED: .ASCIZ / NON-EXISTENT OR OFF-LINE ! PRESS “CONT” TO RESTART. /<1S><1e2> 
4545 044530 OSel23 
4546 047105 O201e4 051117 
4547 2064 40 043106 046055 
4548 2072 O47111 020105 004 
4549 si 051120 O5150S 020123 
4550 2106 O41442 047117 Oelle4 
4551 2114 052040 020117 O4eS2e 
4552 elee le3 051101 le 
4553 e130 005015 000 
4554 2133 O4O O20040 O41440 HALTER: .ASCIZ / CPU WILL HALT. 7<15><1e> 
4555 2140 OS344O O46111 
4556 e146 020114 040510 
4557 2154 O06 le 
ae tte Sy aSpice 051104 NOTLOK: .ASCII /#* DRIVE / 
4560 2172 047516 020124 NODRLK: .ASCII / NOT WRITE-LOCKED ! PLEASE SET WRITE LOCK SWITCH ./<15><l@> 
4561 e200 051127 O52i11 OeéS05 
ee0& O47514 O4S503 042105 
4563 e214 OSO040 042514 
4564 ecee 051501 0105 O4eSe3 
4565 2230 020124 OS112e7 052111 e 
4566 e236 OS 7514 O4SS 
_. 4567 2244 1440 044527 041524 
~ #SEB eeSe 020110 456 e 


MO-11-DZREN-C - RK61 
DZRENC.P11 05-OCT-76 


4569 Ol22S7 
70 


St he 
308 


76 
4577 Dle3a2 
4578 D1E240 
12346 
4580 012354 
4581 012362 
4585 012370 
4583 012376 
4584 15404 
45e5 OleNie 
4586 O1e416 
4587 012424 
4588 012432 
4589 015440 
4590 O12446 
4591 015454 
4592 01 

4593 012470 
4594 012471 
4595 012476 
4596 012504 
4597 012512 
4598 012520 
4599 Olebe6 
4600 012534 
4601 012537 
4602 012544 
4603 012550 
4604 012556 
4605 012564 
4606 012572 
4607 012600 
4608 012606 
4603 012614 
4619 Oleeis 
4611 012624 
4612 Ole632 
4513 012640 
4614 O12cu6 
4€15 O12653 
4616 012660 
4517 O12666 
4618 012674 
4619 Ole702 
4620 012710 
4621 012716 
4622 012724 
“E23 012732 
4624 012740 


1/R 


KO& SUB 
07 


10: 


SYS. VERIF. 


030050 


MULSEL: 


ENTMOD: 


MANEXR: 


DRIEXR: 
MANALN: 





brickan SPECIFIC RESERVED LOCRTIONE 
/ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIT 


-ASCIT 
-ASCIZ 


ALN: .ASCIZ 


MANVRF : 


HEDPOS: 


ENTHED: . 





-ASCIZ 


-ASCIZ 
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/ THEN PRESS “CONT” ON CPU./<15><12> 


‘ 
® 
v7 


/#* MULTIPLE DRIVES AUTO-SELECTED ! PRESS ‘CONT’ TO RESTART. /<15><12) 


(12>/ALIGN, VERIFY, OR EXERCISE (A,V, OR E) ?7<15><12> 


(12><12>7%# RANDOM SEEK EXERCISES IN PROGRESS / 


“ON DRIVE 7 


4 #*/¢15><12> 
(12><12>7% MANUAL SELECT ALIGNMENT #7¢15><le2> 


<12><12>7% MANUAL SELECT VERIFY #/<15><1l2> 


“HEADS POSITIONED AT CYLINDER 365 (0CT)/<15>< 12> 


(12>/ENTER HEAD NO. (0-2):7<15><12> 








~ 





( 
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OZRENC.P11 OS-0CT-76 10:07 PROGRAN SPECIFIC RESERVED LOCATIONS ats 
4625S 012746 031055 035051 005015 
012754 000 


Tele 4 


4626 
aee8 bigree os 104 rea Bile? RWNRDY: .ASCIZ /TYPE <R> WHEN READY :7<15><1le> 
1 10S 104 


OS4S04 035040 O05015 
000 


é 
genes 


110 0SOS HEDSEL: .ASCII /HEAD / 
Wess 13012 O20040 O42S5e3 O4eS14 HEADNO: .ASCIZ / SELECTED/<1S><12> 
wes Olsbee OO 
4636 3027 Ole O25012 O4O44O TYPAUT: .ASCIZ <12><12>/% AUTO SELECT MODE */<«15><le2> 
4637 3034 OS2ie5 042523 
3042 042514 046440 


3060 O0050ie d200Se perene AUTALN: .ASCIZ <12><12>7# AUTO SELECT ALIGNMENT #/<15>< 12> 


O4eSe2 
3344 051117 OS2040 O4052e 
2352 045503 O06441 O000ie 
3360 O41536 005015 000 CNTRLC: .AS 7#0/<15><1e> 
0065 /¢2/¢15><12> i 


C1Z 

6s 136 : .ASCIZ 

3372 051136 005015 ,O000 CNTRLR: .ASCIZ /tR/<15><le> 
377 136 O0065e5 000012 CNTRLU: .ASCIZ 


0 
01 
9 
01 
61 
01 
01 
01 
01 
bi 
We4> 013066 04 051440 Os 
4643 013074 O41505 020124 O46101 
eo 6 Gel Bee Re 
WE4— 013116 OOSO12 O200S2 052501 AUTVRF: .ASCIZ <12><12>/* AUTO SELECT VERIFY */<15><12> 
wE4? 013124 04 051440 046105 
WE4B 013132 O41505 020124 Q4esze 
WE49 013140 O44522 O54506 O25040 
WE50 013146 OOSOIS oOo | . 
4651 013151 O12 OS1104 OS3111 DRISEL: .ASCIZ <12>/DRIVE / 
uee> 013156 ozo10s 
WB53 013160 O20040 O42S23 042514 DRVSEL: .ASCIZ / SELECTED/<15><12><12> 
E54 013166052103 O42105 OOSDIS , 
Wess 013174 *O000I2 
WE5B 013176 OOSOIS O200S2 OS2SD1 AUTEXR: .ASCII <12><12>/* AUTO SELECT EXERCISES */<15)<12> 
WBE? 012204 047524 051440 
ESB O13012 O41505 O20124 OS54105 
i tk i 
461 013233 O12 O44123 OS1117 ASCIZ <12>/SHORT.OR LONG (S OR L) ?/<15><12> 
YEE2 013240 020124 051117 O4e040 : 
4BE3 013246 047117 020107 05145 
ue64 013054 4 20122 O24514 
Mees Ol3e62 O37440 005015 OOO 
013267 y 10S 042530 041522 AUTOEX: .ASCII /EXERCISING DRIVE / 
467 013074 ‘951611 047111 20107 
4668 013302 .051104 OS3111 020105 
469 013310: OOe440 cOD0I2 AUTODR: .ASCIZ 7 /<15)<12> 
4E71 013314 02 0 O40S03 BADE32: .ASCIZ /** CANNOT READ BAD SECTOR TRACK!/<15><12> 
4672 013322 O47116 OS2117 051040 
4673 01 o40s05 osc2 
| 74 Ot 020104 052103 
| 01 
01 
6133 
01 
013 


/tU/<15><12> 





Pe ee ae 


| MD-2-DIREN-C = RKGII/R SYS. VERIF. : PART MACY! OS-0CT-76 10:59 PAGE 92 . SEG 0092 
| DSRENC.E11 © denoting | re. a8 ; PROGRAM SPECIFIC peseavEs tf 1005 tron - | . 
| 4681 S12404 043535 905015 000 CNTRLG: .ASCIZ /16/<15><12> 
4662 613411 b1§ O60s0i2 500 ERELF: .ASCIZ <18><1B>< 2) 
| 4683 S134i6 is 506 BuScSH: RECT NI 
| 4685 3134] 5é4 ss COMMA: .ASCI2 7,7 
wees C1 gi oa 4 SPACEE: (ASCII ¢° / 
Ee 8 eee 
B O1 S 33 spaces: id ys 
“585 513426 000040 SPACEL: -e5C12 a, 
468] 013430 ' . chee / s/ 
seas 51333 360038 aooers 000040 OReee, 7 ts “WORD / 
4633 Cid442 536540 000040 EQUALS: :ASCIZ / = / 
W654 O13446 D200 008 PROMPT: -B3C1E ee 
43 O15] > o0004 PRMPSP: (ASCIZ 7) / 
| 4697 LEVEN 
ise 
4695 
ioe ; 
‘,, 19454 105037 003106 OFSTRT: CLRB  MOFLAG SET FLAG FOR DEFAULT MODE 
| «SSS EIStES iEECSS DoeiOe CCRB DULAC SELEAR DUAL-ACCESS FLAG 
BES BS RE oe 0 Bae SARA IS, 
é H | = ‘TS! 
| 4706. 3i330 ae BNE 4 Bee, NOT DORVTST 
4707 613600 612737 o174S& pooD4e MOV SNEWPAS,a842 :SET RETURN ADRS = NEWPAS 
1708 613506 d0040s 4S: BR CMSTRT : PROCEED 
4710 
| 471] Q13S1C 112737 000001 003106 PSTART: MOVB 81,MDFLAG SET FLAG FOR PARAMETER MODE 
| 471g S351 105037 O03ie6 CLRB s buacs : CLEAR “DUAL-ACCE SS TEST FLAG 
4714 013522 012737 OOC34O 177776 CMSTRT: MO ea “BLOCK ALL INTERRUPTS ss 
4715 -SBTTL INITIALIZE 7 COMMON TAS ’ 
4716 : CLEAR THE COMMON TAGS (SCNTAG) AREA 
4717 913530 91 001100 , MOV 8 ng, Re s;FIRST a orarton TO BE CLEARED 
| 487i 1X CLR (RE )+ ::CLEAR MEMORY LOCATION 
| 4715 613536 022706 oo1140 CMP 8SWR,R& ;;DONE? 
| 4720 «013642 001374 ene 6 LOOP BAC 
| 4721 013645 O12 001100 aSTACK, SP SETUP THE Fark POINTER 
355 l 12737 955504 googe ssINITIALIZE a Feu VEctORs SIOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE s 
i55e aT eet bierar op : NOV t335 sald aatStiecee sit iPve §e a: FOR ERROR ROUTINE 
«7B pire ee ‘Be Bppose MOV 0 Rear ty caer 5 
nA Siete Oe? 37 rae rae HOV aSTRAP ast ere Tere VECTOR FOR TRAP CALLS 
4723 613614 ae 0s MOV asP * vs sPOWER FAILURE VECTOR 
4730 Ol3¢22 012737 000240 00026 MOV #340, DePWRYEC +E s CEVEL ? 
4731 013630 013737 023546 023540 MOV SENDCT,SEOPCT | ::SETUP END-OF-PROGRAM COUNTER 
4732 013636 005037 001304 CLR STI! !: INITIALIZE NUMBER OF ITERATIONS 
4733 oi 3ee 005037 001306 éLR SESCAPE ::;CLEAR THE ESCAPE ON ERROR ADDRESS 
4734 6] 112737 000001 001115 MOVE «81, SERMAX +: ALLOW RROR PER TEST 
| 4736 013654 012737 013654 001106 MOV 8. |SLPADR t; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
473 013662 012737 013662 001110 MOV #. 'SLPERR SETUP THE ERROR LOOP ADDRESS 





po ee ee ee 





MO-J1-DZREN-C - RKELI/ 

OZRENC.P1] | 0S-OCT-7 
SE 
4735 013670 013746 
740 (013674 igs > 
474] Ol 127 

3S BEE 

' ple: l 1012 
- l 
uous B1ae86 Bieri 

aoas piace? Bis? 
4750 piece 1 

| 4751 013782 012637 

| 4585 533278 I 

| 755 013770 001403 
475— 013772 012737 

| 4757 914000 

| ieee biobe 

| 4760 01401 

| 4761 gi4014 

| BR bis 

eS 
4766 sti 

| 4767 bi H054 
4768 O14060 

| 4768 014064 

| 4775 o14070 
iors Shace 
4773 014102 

eee sts 

ER HE 

| 4777 014120 012737 

| 47768 614126 012737 
4773 oi4i34 013701 
4780° 614140 612721 
4781 014144 013711 
4782 014150 012737 
4783 O14156 012737 

| 4784 O14164 105037 
4785 -O14170 912737 
4786 014176 612701 
4787 Olvede 012700 
ayes Siaeis Spe300 
4780 ‘Di42i2 001375 
479] 014214 005037 
4792 014220 004737 


[or ree ee eee 





SYS. VERIF. 


2 
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inittecize THE COMMON Thos 


HHELOR'TG 8 SESE De Poe 6 SOP ante sulicw Revister. 


64§: 
ess: 
6&$: 


OOC0EO 40S: 
000062 


177776 


425: 


DRERRVEC (SE) $3 
8645 en C 33 TERROR 1 oop 
+E tup FOR A WARE SWICH REGISTER 


80SWA, SWR 
8 $ RY i: a AY T 
e001 ISPL ey fo terres Ise REGISTER 
be :BRANCH IF NO iQ TIMEOUT TRAP OCCURRED 
bss iO TG COS OUT 1, natant. 
#65$, (SP) feet uP a Sea 

:;POINT TO SOFTWARE SWR 
sstepatens DISPLAY 
(SP)+,aeERRVEC ;;RESTORE ERROR VECTOR 


;;CLEAR Pass C 
BeeS1zE, SEN a5 Tat ag size UNDER APT 


? T SWITCH 
SSSWREG, SWR + NB USE” apy SurTcn REGISTER 
:CLEAR THE UNIBUS 
: ab, DEERRVEC :SET TIME-OUT VECTOR 
8MPERHD garenvec ~SET MEM PARITY TRAP SECTOR 
BPR? gelenvecte spe1) TRAE FEARLORET 
PC, ENBC Y ” CHECK 
BOD. SERMAX EP HX ERROR CNT Ty 100 FOR $SCOPE 
DRVERS :CLEAR ERROR COUNT FOR CURRENT ORIVE 
#1, HLPOVL a HLP FILE OVLOD INDICTR ; 
| D2REN TYPE PROGRAM I.D. FOR PART 2 
 SUBVER- 
PART 
ROTYPE +SEE IF OPERATOR NOTE SHOULD BE TYPED 
NOTMSG : TYPE OPERA TOR NOTE. 
NOTYPE :SET FLAG FOR NEXT TIME 
in SEE IF Du DUAL-ACCESS DATA TEST 


NOT 
UACES :TYPE “2% We PUR ACCESS D DATA TEST *" 
aeoMBe DeTKVEC 3L Toe VECTOR KBD 
#PRY aa TKVECtE ‘SET KBD PRIORITY = 4 


RKVES, RL !ADOR. OF RKO& VECTOR STORAGE 
#I.INTR,(R1)+ SET IT TO RKOG HANDLE 
RKPRI, (R1) :SET RKO& PRIORITY 
RCTERHD dA MMVEC : VECT FOR KTL1 of ALLURE 
8PR?, JSMMVEC+e SET PRIOR. = 7 FOR HNDLER 
TSTING : CLEAR “RUNNING TESTS" FLAG 
#PRO, J8PS ALLOW ALL INTERRUPTS AGAIN 
#PRVEMD,R1 :ZERO OUT PREVIOUS COMMAND 
#6, RO :SET COUNTER 
(Bis :ZERO A WORD 
Abs ;BR IF NOT DONE. YET 
STALLS "DON’T ALLOW STALLS YET 
PC, GTSWRG :OPEN SOFTWARE cu FOR MODIFICATION 


> 


-_ ~*~ 
s 0093 





0-*0 +6 © +0-+0 +o 


ee 


FESEEESE FEES SSS 
ROPE RRS SEE 


5 


OOOOYOOOAOOVOOOOVO0O OO00 O0O0O0O 
tw 


Os b= b= bs b= F-88022 Be 0 Fe be he he 


sSeethbas 





~ RK61I/RKOG SUBSYS. VERIF. 
* Gennetaoe 10: 


= Biss BiE73> 
ious 7 





: PAR MACY11 ——o 
initial 128 THE COMMON TAGS 


#1 ae’ 
#l234S6, SLONUM 


ae Ges 
sa 


; BEGIN phd INPUT MODE 
O$: TYPE ,» PRMINP 


MOV sce STORE 
: OPEN RKO VECTOR aa FoR mobieycaTt on 


OS-OCT-76 10:59 PAGE 95 


;INIT. PSEUDO-RANDOM NOS. 


sSIZE MEMORY, FIX MA LIMIT IN PRMLIM 
SEE IF XXDP’ PREVIOUSLY SAVED 

:BR IF NOT 

RESTORE arved XXOP 


DE 
T erat BASE ADDRESS 


:TYPE “PARAMETER INPUT MODE™ 
;OPEN RKO UNIBUS ADDRESS FOR MODIFICATION 
Rov. RxBRS-(SP) 


OLD VALUE ON STACK 


;PU 
;TYPE “RKO& BUS ADR = 
; OLD 


GET NEW RKBAS VALUE 
VALUE 


SUT OL Le VALUE ON STACK 
;TYPE “RKOG 


: TYPE OLD, GET NEW RKVEC VALUE 
RE NEW VAL 


OLD VALUE OF PRIOR: 
IT INTO BITS O-e 


C, GETPRM 
MOV (SP)+, RKVEC STO 
-OPEN RKO INTERRUPT HANDLER PRIORITY LEVEL VPbR MODIFICATION 
i$: MOV RKPRI,-(SP) eet 


;TYPE “RKOG PRIORITY = ™ 
;TYPE OLD, GET NEW RKPRI VALUE 


;SEE_IF AT LEAST LEVEL, 4 

62 IF NEW VALUE TOO SMALL 

SEE IF LEVEL 7 OR LESS 
NEW VALUE _T 


OC LARGE 
CET PRIORITY INTO BITS 5-7 


;STORE NEW VALUE 




























E08 


ee o oe ant! , es. VERIF. ; PART CY DL 7(1006) OS-OCT-7& 10:59 PAGE 9 SES SCE 
DZRENC 05-00 i 10: tniTIALIz THE COMMON TAGS 


, #843 019500 oD0N0s BR 168 
gi 4502 104401 poseee 128: TYP iE OFFO sECHO BAD INPUT 
ae l 104361 i3l4 TYP SQUES 
4852 Biaere 00074 oR {1s :G0 ASK AGAIN 
agen 14514 7 00311 16$:  CLRB  ERRCNT if AR ERROR CNT FOR fESTORTS 
‘ ! hOSo36 aegeis oo004e MOV SDRVTST, ae42 ELGAR i poset! 
433° O14S26 000137 o1S342 IMP CHKLST 60 ee cprrret uh BE SERS rE 
sa 
58s eee ratte ECIRED DRIVE INPLT ROTI 
4 L IRED DRIVE INPUT ROUTINE 
+86) Sart ROUTINE TYPES THE CURR ENT bist OF OF DRIVES To TEST, 
4854 :#WITH DRIVE NUMBERS SEPARA TED B THEN 
sees :#CHOICE OF DRIVES IS REGUES FD 8 By oY ory INPUT ang ese 
4865 !#DRIVES ARE CHECKED FOR VALIDITY AND PROPER 
4867 HAND IF THEY ARE VALID, THEY ARE LOADED INTO tHe “BAIVE 
“558 #187 (DRYLST) 
“663 ETETPTUPTTTITTTTTTTTTTTTTTTTTT CTT TTT TTT TTT Tere Tete eee e etter eee. 
| 4558 GIMESE gue706 01100 ast Mov sSTACK, SP SRESET THE STAC 
- 1 3 4 
4873 014536 005037 CLR STALLS ; INHIBIT STALL BETHEEN OPERATIONS 
| 4874 O14542 004737 30 ISR PC, ENBCSR E MEMORY PARITY CHECK 
«4875 «O14S4—E «104401 go77es TYPE ALDRVS ASK IF ALL DRIVES DESIRED 
4876 014552 004737 72 ISR PC RDCHRS iRER D RESPONSE 
| 4877 O14556 014532 DRVTST (fC) RETURN ADDRESS 
| wes Bt Bt eas OE TeT 4 OR ERROR RETURN ADDRESS 
| deed StueEa | SacSES Tot RO :SEE IF MOLL INPUT 
| 4881 O14566 001413 BEG TELDRY ‘BR IF NULL INPUT 
| 4882 014570 022737 000101 ocos2b2 CMP #°A, BUFFO :SEE IF ALL DRIVES REQUESTED 
| 4883 014576 001002 BNE 4§ :BR IF NOT ALL DRIVES 
weee DiMeDN fondo] | QOESES us: TWP ae ECE BRD INPUTS 
| He GIG ip) barsis ie PEC “OR LP 
428 iT YPE CURR NT ate io cist 4 
| 4889 O14616 104401 007350 ;TYPE “DRIVE(S) =” 
ers 5 a : {a 
| wee Siuese 012703 900001 MOV INT Bi? POINTER 
| 4883 014632 105761 OOS&06 4§: TSTB SBTO,RS :SEE IF THIS DRIVE IS LISTED 
| ypou > 014 4 BEQ 8$ :BR IF DRIVE NOT LISTED 
| 4695 OL TST RO :SEE IF FIRST TIME HERE 
% oOl4e42 001402 BEG ‘BR IF FIRST TIME HERE 
4897 OiNes4 1044 o1 417 TYPE COMMA ;TYPE A conn 
, 4eS6 O146S0 Biol 5 &$: MOV AI. SCRACH USE SCRACH FOR BUFFER 
4299 014654 052737 OO0060 oopss22 BIS #’°O. SCRACH :CONVERT DRIVE NO. TO ASCII 
4900 O14s62 10840 005532 TYPE SCRACH : TYPE DRI VE NO. 
| 9801 O14666 INC RO S INCREMENT NO. OF up iSTED DRIVES 
4902 014670 gS: INC Ri INCREMENT DRIVE N 
| 4903 014672 006303 ASL :SHIFT BIT POIN EER 
4905 014674 022701 oo0010 :SEE IF DONE YET 
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DZRENC.P 0S-0CT=76 10:07 TO'- DESIRED ORIVE INPUT ROUTINE 
4 4 R IF NOT D 
Sig e sg thes ise ste 
4308 0 011271 43 “ROEALS Vee NONE” 
4608 tS 007571 TYP * NODR Ne mi + MW ORIVES TO TEST” 
“it 147 l V part ah hi Ghee pares: reel 
rd 
481 Bi teas atic V scRUC eF, Rl pa hese 
4913 914726 910321 MOV R3, (R1)4 MARK ar SORTVES IN LIST 
4914 is 10321 MOV R23. (R1)+ 
4815 614732 O6103e1 MOV R3,(R1)¢ 
Sai Bhaae BaBSES quuye MP OHCTPRG 
4618 ste satay Bor aie 26S: YPE HERE Hee vt bar piLF) 
4213 14746 105737 903106 ISTE HOELAG SEE IF, DEF AULT NODE 
4257 810785 BRASS orce oy fe CLOBFLS 169.1080 DEFLT THER SSUNTS 
4 014760 122737 000012 o0004: 208:  #CMPB #13,a841 ;SEE IF IS XXDP MEDIUM 
4823 014766 6001032 BNE 19 
014770 105737 ooseos TSTB  ORVLST SEE IF DRIVE O LISTED TO TEST 
wast Bee oh 007502 24g eee 1 BEPLPK TYP YPE “te XXDP PACK ON DRV 0, TYPE Y «CR 
| 4Q57 ete s : AND REPLACE IT” 
| 4928 015002 904737 032272 ISR PC, ROCHRS - TREAD RESPONSE 
4929 O1SO0E 014776 Dus ($C) RET 
| 4630 O15010 014776 Bug 2042) RET 
| 4§31 O15012 o14776 aug :(4U) RETURN 
4832 015014 2 TST RO :SEE IF NULL 
| 4933 15016 O014I6 BEG 19$ :BR IF JUST <CR> TYPED 
| 4834 015020 022737 000131 ocos2¢e CMP 8’Y, BUFFO :SEE IF “Y <CR>" TYPED 
«4635 «(O15026 001363 BNE 4 :BR IF NOT, TO ASK AGAIN 
4836 015030 104401 907622 TYPE CNTRDY “TYPE “PRESS CONT WHEN DRV RDY™ 
| 4937 015034 O42762 000100 oo0000 BIC RIE,RKCSI(R2)  :DISABLE RKO INTERRUPT 
| 4838 015042 oOo0000 HALT :HALT FOR PACK CHANGE 
| 4839 615044 004737 030776 ISR PC, INITSS INIT THE SUB-SY 
| 4840 O150So 000137 O1S342 IMP CHL st ;G0_ CHECK STATUS OF LISTED DRIVES 
4941 O15054 104401 01344E 193: TYPE ‘TYPE ASTERISK AND SPACE 
| 4942 sREAD AND CHECK fei DRIVE NUMBERS 
4943 015060 004737 032272 R , ROCHRS READ IN INPUT STRING 
«4644 «015064 014532 DRVTST :(#C) RETURN ADDRESS 
| $945 Q1SO6E 014532 DRVTST (42) RETURN ADDRESS 
| 4946 O15070 O14b16 TELDRV >(4U) OR ERROR RETURN ADDRESS 
| 4947 015072 005700 TST RO :SEE IF NULL INPUT 
4948 915074 001007 BNE $ :BR IF NEW DRIVES WILL ft SELECTED 
| 4948 015076 105737 003126 » TSTB DULACS : SEE IF DUAL-ACCESS FLAG SET 
49850 015102 O0100e BNE 22$ :BR IF YES 
_ 4951 O15104 000137 o15406 IMP ASKTST JUMP TO THE TEST INPUT ROUTINE 
| 49982 O18110 000137 o16152 225: IMP INPUTP :GO ASK FOR INPUT PARAMETERS 
4953 015114 022700 000017 9s: CMP #15. ,RO :SEE IF TOO MANY CHARACTERS TYPED 
| 4955 615150 02005 BGE 125 BR IF NOT TOO MANY 
_ 4855 O1E122 10440) 262 10$: TYPE »BUFED ECHO BAD 
456 015126 104401 001314 TYPE UE : TYPE <?) AND < 
| 49957 015132 000631 BR TELORV ;G0_TYPE DRIVES AND ASK AGAIN 
4958 015134 o05001 12: CLR RI ;CLEAR CHAR. 
| 4953S O15136 126127 ooS26e ooocEO 14$:  CMPB # BUFFO(RI),#°O ;SEE IF DRIVE NO. < 0 
4960 015144 O02766 BLT 10$ :BR TO ECHO BAD INPUT 


ooo 


ee ee 








Ot ale - RKE1i/ Ae _ VERIF. 


DZRENC.P11  OS-OCT-76 
4961 O1S146 126127 005262 000067 
4962 O15is4 603362 
3) HES Be 
dgee BieteS S874 
4966 015164 126127 OO0S262 oo00s4 
4367 1517 
4 15174 I 
4368 015176 000757 
4871 015200 012701 o0S606 
a ee 
~ \ 1 
4674 6.*8] 621 
4875 01. °12 005011 
ne ptesie re taay ons262 
rd 
4878 015222 Aaseot 000060 
487§ 015226 112761 O00001 OOS&0E 
4980 015234 062700 900002 
4981 015240 105760 o0526) 
4382 015244 001364 
138 615346 900435 
uggs 015250 
4986 015252 ieee 001376 
4687 015256 132737 000200 001341 
4968 015264 001002 
4989 015266 012703 0002 
498990 015272 012701 90000) 
4891 015276 105060 
49S2 015302 030103 
4993 015304 001403 
4894 015306 112760 O00001 ocOSs&06 
4895 015314 606301 
4996 015316 200 
4997 015320 022700 ono010 
4992 015324 001364 
4999 015356 132737 000200 001341 
so00 015334 o0140e 
001 015336 000137 o14b16 
£003 015242 oos000 
E004 O15344 105760 OOSEOE 
5005 O15250 o0140S 
5056 01 352 936037 9oss00 
5007 004737 O21116 
5009 
E010 o1s262 015400 
5011 O1&364 6052 
S012 015366 022700 oo0010 
£013 015372 001364 
£914 015374 000137 O14E1E 
E01s o15400 105060 OOsede 
S016 O15404 000767 
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TO - POESIRED DRIVE INPUT ROUTINE 
CMPB  =- BUFFO(R1),8°7 : SEE IF > 
BGT 10 *BR TO ECHO UT 
INC Ri INCREMENT CHAR POINTER 
emp R1,RO : SEE IF M HARS TO CHECK 
SEQ 16$ : ALL CHARS CHECKED 
CMPB 40s BUFFOCR1),8", SEE IF THI 
BE 13s F NOT 
1 INCREMENT CHAR POINTER 
BR 14$ TO CONTINUE CHECKING CHARS 
-GET NEW DRIVE NUMBERS INTO List’ 
{e$: MOV #ORVLST, ;GET DRIVE LIST ADDRESS 
CLR (RI)+ :CLEAR OUT THE ORIVE LIST 
CR (R1)+ 
éLR (RI)s 
CLR (RI) 
CLR RO :CLEAR BUFFER POINTER 
18$:  MOVB BUFFO(RO),R1 GET A DRIVE NUMBER 
BIC #’0.R :STRIP ASCII BITS 
MOVE #1, ORVLST(R1) ;MARK THIS DRIVE IN DRIVE LIST 
ADD $ :POINT TO NEXT DRIVE N 
TSTB BuEFO-1(RO) ‘SEE IF NULL CHAR YET 
BNE :BR IF NOT DONE YET 
BR if ist °GO CHECK NEW DRIVES FOR VALID STATUS 
CONE. HER HERE | IF ALL DRIVES REQUESTED pampodin - 
ah SDEVM,R3 igbe APY DEVICE ASE 
BITE #BIT7;SENVM SEE IF NO SIZING 
BNE 1$ :BR IF NO SIZING 
MOV 137 R2 :SET UP FOR SIZING 
1S: MOV #8I1TO.R :SET BIT POINTER 
25: CLRB seu et cro) : INITIALIZE DRIVE EN 
BIT R1,Ra :SEE IF THIS DRIVE IS REQUESTED 
BEQ 4 :BR IF NOT 
MOVB  &1,ORVLST(RO) MARK THIS DRIVE IN DRIVE LIST 
4g: A Ri :SHIFT BIT POINTER 
INC RO INCREMENT DRIVE NUMBER 
#10,RO0 SEE IF DONE MARKING ALL DRIVES 
BNE 2s :BR IF NOT YET 
BITB #B17T7,SENVM :SEE IF PROGRAM SHOULD SIZE 
BEG CHKLST R IF YES 
0 LIST BPT-SELECTED DRIVES 


IMP FEL DRY G0 L 
: CHECK ALL DRIVES MARKED IN DRIVE List FOR PROPER 
oe 


GHKLST: DRIVE NUMBER 
DRVLST(RO) :SEE IF THIS ORIVE IS MARKED IN LIST 
BEQ 4§ :BR IF NOT MARKE 
FOR SCNDRV 


MOV RO, DRIVE SET DRIVE NUMBER 
JSR PC; SCNDRV ;CHECK STATUS OF THIS DRIVE 
; IF NOT VALID, TYPE MESSAGE 
MOVE IT FROM ORIVE LIST 


REM 
&$ ERROR RETURN ADDRESS FOR SCNORV 
4$: INC RO RETURN HERE IF DRIVE IS USEABLE 
CMP #10,R0 ; SEE IF DONE ee + NG LIST 
BNE es ;BR re. id | ONE _Y' 
JMP GO BACK TO LIST a CTED wis S 


REMOVE. INVALID DRIVE FROM LIS 


$: CLRB 
BR ;CONTINUE CHECKING THE LIST 


TELDRY 
ORVLST (RO) 
4$ 


SEG 0097 
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00sS2e 
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TO - DESIRED ORIVE INPUT ROUTINE 
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SEG 009e 


a oie ere ae RRAFLELELERELLLSFLSELSLAAESS 


BTTL ms - que y 2 yl 


*THAT TEST I "Nor Ato BE Ru 
PeTHIS ROUTINE eaaert “ENTER L,C, 
;*#CAUSES THE CURRENT LIST OF TE 


TESTS AND ITERATION 
SCMECKED FO FOR Bi tad 


ON VALUE OF o INDICATES 


OR I”. TYPING ( 
StS’ AND ITERATIONS 16 pe 


;*# TYPED Pa ALLOWS TESTS. AND ITERATIONS TO BE C 
H i 


: ae Aiises RETHEN TO AGKTRO. 


CHANGED 
OPERATOR TO 9 PROCEED WITH SELECTION 
BE TURN TO DRVTST. TYPING 


5 RRRERESRRLE LALA LEAL RE LAL ALE LAL ERALALALLLEL ERE LAELALARESLELE LE LE 


-DETERMINE L,C, OR I MODE 
RSKTST: Type + TSTMS :ASK FOR Tea INPUT MODE 
SKTMO: T ENTLC ; TYPE "ENT / #» 
SR PC, ROC AD RESPONSE’ 
DRVTST CHC) RETURN ewan 
ASKTMD :(¢2) RETURN ADDRESS 
ASKTMD :(¢U) OR ERROR. F TURN ADDRESS 
TST RO “SEE IF ANY INP 
BNE 4u§ :BR IF ANY INPUT 
23: TYPE  ,BUFFO *ECHO BAD INPUT 
TYPE $QUES ; TYPE <?> AND <CR>,<LF> 
BR ASKTMD :G0 ASK AGAIN 
4$: CMP #°L,BUFFO :SEE IF (L) TYPED 
BNE 6$ *BR IF NOT (L) 
JMP LSTTST *JUMP TO LIST TESTS 
6S: CMP: #’C, BUFFO :SEE IF (C) TYPE 
BNE et ?BR IF NOT (C) 
IMP CHGTST ; JUMP TO CHANGE TESTS 
eg: CMP #’I,BUFFO ;SEE IF (1) 
BNE 2$ :BR IF NOT De a CHO BAD INPUT 
IMP INPUTP :GO INPUT PARAMS AND RUN TESTS 
sLIST CURRENT TESTS AND ITERATION COUNT S 
{STTST: TYPE TLSTHD YPE HEADI NG “TEST ITERATIONS" 
1 INITIALIZE f ST INDEX 
23: JSR PC, PREPKB :PREPARE FOR POSSIBLE KBD INPUT 
JSR PC’ TYPTST !TYPE CURRENT TEST AND ITERATION NUMBER 
TYPE SCRLF ?TYPE <CR>, <LF> 
TST INTCHR :SEE IF ANY INPUT 
BEQ oy :BR IF NO INP 
CMPB #003, INTCHR :SEE IF c1¢) »LYPED 
BNE 4g :BR IF NOT 
IMP DRVTST :JUMP TO Hsh "FoR DRIVES AGAIN 
4S; CMPB #032, INTCHR : SEE IF ‘e YPED 
BNE 6$ :BR IF N 
IMP ASKTMD JUMP TO ASK BOR NEW TEST INPUT MODE 
6S: JSR PC, ECOBAD ‘ECHO B T 
gg: ADD #2,R1 :INCREMENT TEST INDEX 








i tat oe ae ~ RK&1LI/RKOG SUBSYS. VERIF. 
DZRENC. OS-OCT-76 10:07 


5073 


etfs 


Sa ges ROR EEB hd tot 


ea 


CUNONUNUN CATON CIO UT UTOT CT OO OT OT CUT OT CUO On Onc 
02 0 bs be Bs hs be he ene sBSS BRASS 
ORR OR Raw Shien ODO VM Loree 


tr 
co 


“ 
£ 


ew 


SNS) 
co 
£ 


BRAM uw) 
$ 


5 


B83 


oor 
tp 


y 


010102 





000100 163320 
0iS4le 
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TO - DESIRED TEST INPUT ROUTINE 


omer: ie Pee tir 


SNE 23 
BIC s8IT&, ISTKS tOTSABLE Kap” INTERRUPT 
IMP ASKTMD :G0 ASK FOR NEW TEST INPUT MODE 


HENGE URRENT see AND ITERATION C 15 
igen Tyee ;ASK IF TESTS SHOULD BE DEFAULTED 
READ RESPONSE 
bavTsr 7 tC) RETURN ADDR 
Bek THE +146} FE PRR Sth ADDRESS 
| ONLI ett te 
acd my BUFFO vEEe IF rh) HEHE 
BEd : mn IF apeFeuLTs REQUESTED 
TYEE Ee s§SGe <7) AND <CR>,<LF> 
BR HG 580 Sk AGA N 
LORD DEF DE BULT rTERaT TN COUNTS IATO TEST LIST 
lors my petieree its Geert iet gage 
4S: MOV (RO)+, (Re)+ :L tore A BEFEULT at 
CMP #OFLTST,Re :SEE IF fever’ 
BNE 4S : NOT “BONE Y 
TSTB © MOFLAG :SEE IF DEFAULT MODE 
BNE ASKTMD ?BR IF NOT DEFAULT MODE 
IMP LODFPT *GO LOAD DEFAULT PORBINE TERS 
NULINP: CLR RL s INITIALIZE TEST I 
TYPE STHD HEADING “TEST ITERATIONS" 
-TYPE CURRENT rest 3N0 ITERATION’ NUMBER 
8s: ISR TYPTST ;TYPE @ TEST NO. AND ITERATION NO. 
TYPE Pepa 1 Y 
YPE TYPE ASTERISK AND SPACE 
s READ AND CHECK INPUT. IF ANY 
R C,RDCHRS ; READ OCTAL DIGITS TYPED 
VTST (fC) RETURN ADDRESS 
ASKTMD te) RETURN ADDRESS 
:(¢U) OR ERROR RETURN ADDRESS 
TST 0 SEE IF ANY I 
BNE 12$ BR IF ANY nha 
10$: ADD He, Ri s INCREMENT INDEX 
MOV R1-Re OPY INDEX 
ADD are ST, Ae i epr POSITION IN LIST 
CMP LTsT’ ; SEE IF ONE WITH LIST 
BNE F NOT DONE YET 
JMP REKTHD 60 ASK F FOR NEW TEST INPUT MODE 
oose62 126: CMP #’",BUFFO | ; SEE PED 


fe A HTN Te RRPORTE LEBEN, ITER. 10. 
CMPB #8"! ,BUFFO-1(RO) ; ; SEE IF L af CHAR IN BUF IS (!) 


BNE 14 I t) 

CLRB BUFFO-1(RO) INSERT TERHEAATOR pyre 
DEC RO :DEC REMENT C COUN 

INC Re :SET (!) INDICATOR 











ee eee 


DZRENC.P11 05-OCT-76 
1 1 900008 
EG ies 
5131 O160Se Ole746 O0Sebe 
Si3e 916056 904737 053014 
ae Ge Bes 
oper 
5136 01607e 1010ee 
giz 016074 010061 O0S616 
138 016100 005702 
pis 016102 001731 
se) 016104 010102 
i4e 016106 O6e70e 005616 
$143 Ol6ll2 Qee70e 005630 
ati O16116 O01 
i145 16120 0001 015412 
5i46 Ol61e4% 016161 OOS&1E 
5147 Ol613e 062701 000002 
5148 016136 000762 
5149 016140 104401 005262 
S150 016144 104401 001314 
5151 016150 00067 
515¢ 
§153 
S154 016152 104401 010243 
SiSS 016156 005 005502 
5156 01616e 004737 930030 
S157 O161668 104401 9010371 
S158 O1617e 104401 O13446 
5159 016176 OO4737 O3e27e 
2160 Ol6e0e 014532 
161 Q16204 016156 
Sige 016206 016156 
£163 016210 905700 
5164 Ol6ele 001005 
£165 016214 104401 O0S2be 
Ste} pi best 104401 001314 
16 lée 000754 
S168 Oléee6 Oee737 000124 
5169 Ol6e34 001002 
5170 016236 000137 016370 
5171 Ol6e4¥e O2e737 000117 
S172 O16eS0 O01 
5173 OlbeSe 000137 O1bé4e 
$174 016256 Oee737 000123 
6175 Ol6e64 1 
5176 Ol6e66 000137 - 017126 
5177 Olbe7e Oee737 O00iee 
5178 016300 001345 
5179 01630e 023737 OOSE&5 
6180 016310 003403 
st O1631le 104401 010477 
18e 016316 000717 
6183 O163e0 023737 OO0S&62 
$184 016326 003405 
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TO - DESIRED TEST INPUT ROUTINE 


14$: CMP #5, RO 
BLT 20 
MOV NEUFEO -(SP) 
JSR C,OCTBIN 
20S 
MOV {SP)+ RO 
CMP 0, #77776 
BHI A 
MOV RO, TSTLST(RL) 
TST Re’ 


BEG 10$ 
Y rahtoael ® CURRENT 5 ast ct NO. 


OS-OCT-76 10:59 PAGE 101 


;SEE HOW MANY CHARS N 


:BR IF TOO MANY CHAK THER. NO. = 77776) 
GET BUF ADDR. ON STACK FOR OCTBIN 
:CHECK DIGITS AND CONVERT is ES a 


: ERROR We ADDRESS FOR OCT 
;GET {TENA TION NUMBER 

SEE IF 
; IF 100 0 BIG 
: PUT I ey He 
; SEE IF 

;BR IF _N ‘ 

19 5 Tre ero OF TSTLST 


ER INTO TEST LIST 


16s COPY 
ADD sTéTLST, Re :GET POSITION IN LIST 
site aOELTST-e, Re ;SEE I Fat END OF LIST 
IMP Age KTMD °G0 ASK FOR NEW TEST INPUT MODE 
17$: MOV TSTLST(R1), rstustseR) -PROPAGATE TO NEXT WORD 
ADD #2,R1 REMENT INDEX 
BR ted :BR TO CONT INUE 
20$: TYPE BUFFO ‘ECHO BAD INP 
TYPE SQUES TYPE <?> AND” tcR>, <LF> 
BR 85 :GO ASK AGAIN 
-ASK FOR DESIRED OPERATIONAL PARAMETER INPUT fove 
tNPUTP: TYPE EXP LaN -EXPLAIN INPUT MODES 
ASKMDE: CLR STALLS : INHIBIT STALL BETHEEN OPERATIONS 
JSR PC ENBCSR :ENABLE MEMORY PARITY CHECK 
TYPE § , PARMDE ASK FOR DESIRED INPUT MODE 
TYPE PROMPT ;TYPE * 
ISR Pc, ROCKRS : READ RESPONSE TO MODE QUESTION 
DRVTST ?(4C) RETURN ADDRESS 
ASKMDE (#2) RETURN 
ASKMDE :(tU) OR ERROR RETURN ADDRESS 
TST RO ?SEE IF NULL INPUT 
BNE 4 :BR IF ANY INPUT 
2s: TYPE  ,BUFFO :ECHO BAD INPUT 
TYPE SQUES :TYPE <?> AND <CR>, <LF> 
BR SKMDE :GO ASK AGAIN 
4g: CMP #7, BUFFO ; IF (T) TYPED 
BNE :BR IF NOT (7) 
IMP TYPLST :JUMP TO THE TYPE LIST ROUTINE 
6S: CMP #0, BUFFO :SEE IF (0) TYPED 
BNE 8$ BR IF NOT (0) 
IMP OPNLST UMP TO THE OPEN LIST ROUTINE 
8S: CMP #°S, BUFFO :SEE IF (S) TYPED 
BNE 10$ :BR IF NOT (S) 
IMP SETPRM : JUMP TO THE SET INDIV. PARAM. ROUTINE 
10$: CMP #°R, BUFFO :SEE IF (R) TYP 
BNE sR IF NOT (R), TO ECHO BAD INPUT 
CMP 0, $1 : COMPARE 20(Det) SECTOR LIMITS 
BLE 12 ;BR IF SO NOT > Si 
TYPE SECNLI :TYPE "50>S1 NOT ALLOWED” 
BR ASKMDE :GO ASK AGAIN FOR PARAMETERS 
123: CMP $2,$3 : COMPARE 22(DEC) SECTOR LIMITS 
BLE 14% :BR IF S2 NOT > S23 


SEG 0190 


ae a ee eee 


rn cj ee ee ee 
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2 0S-0CT-76 10:07 f0'- DESIRED TEST INPUT ROUTINE 
185 016330 10527 TYP. , SECNL ; TYPE “S2>$3” 
186 O16334 104401 Bi Bees TYP NOTAL :TYPE “NOT ALLOWED” 
5187 018340 706 BR ASKMDE G0 ASK AGAIN FOR PARAMETERS 
288 016342 023737 OOSES2 OCOSESY 14$: CMP FT.LT :COMPARE CHOSEN TRACK LIMITS 
183 016350 003405 BLE 20$ *BR IF FT NOT > LT 
fig; oesee oeoL Side10 TYPE 'NOTACD TYPE "NOT ALLOWED" 
Ste sibs ieee BR ASKMDE :GO ASK AGAIN FOR PARAMETERS 
2133 016364 000137 017362 20$: IMP RUNTST :GO RUN THE TESTS 
E195 
51% 
£197 SBTTL TO - TYPE (T) LIST. ROUTINE 
£199 :¥THIS ROUTINE TYPES THE ENTIRE PARAMETER LIST ON THE 
2135 ;#CONS , LINE BY LINE. EnCH LINE HAS THE FOLLOWING 
66 :xFORMAT: ba YYYY RE XX IS @ PARAMETER MNEMONIC 
5201 ?#AND YYYYYY IS THE VALUE OF THE PARAMETER IN OCTAL. 
5202 *#TYPING (tC) CAUSES IMMEDIATE RETURN TO DRVTST, 
ae :¥AND (¢Z) CAUSES RETURN TO ASKMDE. 
5505 016370 TYPLST: 
016370 005001 CL Rl s INITIALIZE INDEX 
5207 016372 004737 9027302 ISR PC, PREPKB : PREPARE FOR POSSIBLE KBD INPUT 
5208 016376 004737 032640 1S: JSR PC’ TYPPRM TYPE CU RRENT -PARANETER AND VALUE 
£209 O16402 104401 001315 TYPE SCRLF pis <CR>, < 
S210 016408 005737 o0s522 TST tNTCHR E IF F BNY TNPUT AT KBD 
S211 Ol64i2 001420 BEQ 8$ U 
§2l2 O16414 122737 oooo03 ooss2e CMPB ©: #003, INTCHR SEE tr (tC) TYPED 
E513 Ol6422 001002 BNE 4 :BR IF NOT (tC) 
5214 O16424 000137 014532 JMP DRVTST :JUMP TO ASK FOR DRIVE(S) AGAIN 
S215 O16430 122737 000032 ooss2e 4s: CMPB #032, INTCHR -SEE IF (+2) TYPED 
S216 O16436 OO1002 BNE &$ sBR NOT (42) 
6217 O16440 000137 o161S6 JMP ASKMDE TO ASK FOR NEW MODE 
S218 O16444 004737 027322 6S: JSR PC, ECOBAD :ECHO BAD INPUT 
£219 O164S0 0047327 0272302 JSR PC’ PREPKB :PREPARE FOR POSSIBLE, KBD INPUT 
£220 016454 022761 O405i5 O0S776 eS: CMP #"MA,PRMNEM(RL) ;SEE IF PARAM. IS ¢ 
S221 Ol6462 001002 BNE 10$ ?BR IF NOT (MA) 
S2ee O16464 062701 oo0002 ADD #2,R1 INCREMENT PARAMETER INDEX 
E223 O16470 O62701 o00002 10$: ADD #2, R INCREMENT PARAMETER INDEX 
e224 016474 010102 MOV PI’Re :GET COPY OF INDEX 
Sees Olb476 702 OOSEY6 ADD Ween ST, Re :COMPUTE POSITION IN LIST 
E226 ~Ol6S02 227 74 #PRDFLT’Re SEE IF one WITH LIS 
255 BEET EH 100000 OoO0S&E6 ert 3 T15,PT iS e re MATT on CIFIED 
2Ece pieete arte Bie ‘ i PATTERN di iFED 
£230 016520 042777 OO0D100 162416 BIC #8176, aSTKS DISABLE KBD INTER 
5231 O16526 000137 O16156 IMP ASKMD ASK FOR nl MODE 
5222 “TYPE OUT USER-DEFINED PATTERN i 
5233 O16532 104401 O10GEE los: TYPE PFIFTN ; TYPE “USER-DEFINED PATTERN 15S : 
£224 O16536 O0S001 LR 1 INIT 16L1ZE WORD INDEX 
S225 O16540 005737 oossee 14$: ‘TST INTCHR :SEE IF ANY INPUT 
2535 Si EEUE eed 000003 onss22 ac “O03 INTCHR :BR IF F NttC). TYPED 
2532 o1ess4 rata BNE 16$ ’ Be IF NO 
£233 O16556 000137 014S32 IMP ORVTST TON 10 oASK rrOR DRIVE(S) AGAIN 
S240 Oles62 122737 oO00032 ooss22 168:  CMPB © #032, INTCHR :SEE IF (+2) TYPED 


SES 019 
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S234 016774 014532 

Se95 016776 016156 

Se9¢ 017000 016754 
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O - TYPE (T) LIST ROUTINE 


B 198 ‘i F NOT (42) 

J ASKMDE 1. SKF OR NEW MODE 
18$: JSR PC, ECOBAD ee BRO 

JSR PC’ PREPKB Beebe FOR Wesine KBD INPUT 
208: JSR PC’ TYPPAT 

TYPE §CRLF Tee o, tt > 

oD ke 1 : INCREMENT’ INDEX 

C #32. ,R1 :SEE IF 16 WORDS TYPED 

BNE 148 :BR IF NOT DONE YET 

BIC #BIT&, ISTKS *DISABLE KBD INTERRUPT 

IMP ASKMDE : JUMP TO ASK FOR NEW MODE 


TO_- OPEN (0) LIST ROUTINE 
ATH yt! IS USED TO EITHER REQUEST LOADING OF ALL 


; BE QUEN TIALLY Y OPEN E 
seTTY INPUT. TYPING (tC) C 
;#DRVTST, AND (tZ) CAUSES RETURN TO ASKMDE. 


OPNLST: 
TYPE DFQUES ;ASK IF ALL DEFAULT VALUES DESIRED 
JSR PC, RDCHRS s READ RESPONSE TO DEFAULT QUESTION 
DRVTST (tC) RETURN ADDRESS id 
ASKMDE P42) RETURN ADDRESS 
OPNLST 5 (10) OR Mg: RETURN ADDRESS 
TST RO ;SEE IF NUL Lt 
BEQ NOTDFT :BR IF oer AA. S NOT REQUESTED 
CMP #°D,BUFFO : SEE IF (D0) TYPED 
BEQ LODEPT :BR IF DEFAULTS DESIRED 
TYPE , BUFFO : ECHO BAD INPUT 
TYPE pees 
PNL K AGAIN 


CODFPT: (0 DEFAULT LIST ADDRESS 


BR 6 ASK 
*LOAD ALL DEFAULT VALUES INTO paRane TER LIST 

MOV #PROFLT RO LOA 

MOV #PRMLST :LOAD PARAMETER R LIST AOORESS 


4S: MOV (RO) rae :LOAD A DEFAULT 
CMP #PROFLT,Re :SEE IF DONE YET 
ENE 4s :BR IF M MORE | VALUES TO LOAD YET 
TSTB  MDFLAG :SEE IF DEFAULT MODE 
BNE 6$ :BR IF NOT DEFAULT MODE 
MOV #1, SEOPCT *SET PASS COUNT = 1 
IMP STPASS GO RUN DFLT TESTS 
6S: Mp ASKMDE : JUMP TO ASK FOR NEW MODE 
NOTDFT: CLR Ri INITIALIZE INDEX 
-TYPE CURRENT PARAMETER AND VALUE 
8$: JSR PC, TYPPRM ;TYPE PARAMETER AND VALUE 
TYPE "SPACE! :T Q 
YPE PROMPT *TYPE ASTERISK ANC: SPACE 
READ AND CHECK {NPUT, IF ANY 
ISR Pc, ROCHRS ;READ OCTAL DIGITS TYPED 
3(4C) RETURN ADDRESS FOR RDCHRS 


ASKMDE 36 FOR RDCHRS 
8S :(#U) OR ERROR RETURN ADDR. FOR RDCHRS 





a 


if 


set filth 


A 
a 


B 


WONMU£ tue OW 


QNodoO0OHo 
= bb 


017064 


at Attar ata 


acd 


0 bs 0 b+ bb 0 
iatala bbe 


uy 
tw 


S321 


ONOOOONV00O00D 
= bs b= bs be be be pe 


SNNNNN 


UORY ich 


ypc 
ay 
a 

ts ‘ 
012746 
ane 
ue 
013737 


004737 
017114 


104401 


M08 
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& 10:07 TO'- OPEN (0) LIST ROUTINE 
TST R9 :SEE IF ANY INPUT 
o4osis 005776 BNE te PRMNEMC RI) iB 1 os Ata NU DEFAULTED 
Brie 128 BR IE NOT (MAD | 
oo000e2 AD #2,R1 : INCREMENT INDEX 
BR 12$ :BR TO MOVE ON TO NEXT PARAMETER 
000010 10S: CMP #10,RO ;SEE IF 8 CHARACTERS TYPED 
BLT 14 R IF MORE THAN 8 TYPED 
oos26e2 MOV #BUFFO,-(SP) | ;PUT BUFFER ADDR. ON STACK FOR OCTBIN 
053014 JSR PC, OCTBIN : CHECK DIGIT S AND CONVERT TO BINARY 
14$ iBRROR RE TURN RODRESS FOR OCTBIN 
OOS4EE MOV (SP)+, LOWOCT 
053146 005470 MOV SHIOCT,HIGOCT :GET HIG BINARY BITS 
sCHECK PARAMETER VALUE’ AND PUT INTO L 
033276 ISR PC, CHKPRM iC Le y I Ty PRAM Keb 
14 RROR FOR CHK M 
: OPEN USER-DEFINED PATTERN 15 FoR NODIFIEATION— IF NECESSAR 
032752 los: JS 
:MOVE ON TO NEXT Phat TER 
oooo0e2 ADD #2,R1 s INCREMENT THE PARAMETER INDEX 
MOY RI'R2 GET COPY 
oosé46 ADD SPAMCST, R2 : COMPUTE POSTION IN LIST 
005674 CMP #PRDFLT: Re ‘SEE IF DONE WITH LIST 
BNE 8 ;BR IF NOT DONE Y 
016156 IMP ASKMDE sJUMP TO. TO ASK FOR NEW MODE 
005262 148: TYPE  ,BUFFO ECH INPUT 
001314 TYPE SQUES : TYPE nT AND (CR, <LF> 
BR 85 :BR TO ASK AGAIN 
.SBTTL TO - SET (S) INDIVIDUAL PARAM ROUTINE 
:*#THIS ROUTINE IS USED TO ALLOW SETTING OF BN INDIVIDUAL 
t PARAMETER VALUE BY TTY INPUT. A PROMPTER (>) IS 
: AND THE ROUTINE WAITS FOR I NPUT OF The FORM 
j# XX XX=YYYYYY, WHERE XX IS THE MNEMONIC FOR ANY VALID 
PARAMETER IN THE LIST, AND YYYYYY I$ THE DestRED PARAMETER 
EVAL UE IN OCTAL DIGITS. THE PROGRAM THEN ASKS FOR ANOTHER 
:€PARAMETER BY TYP AGAIN. TYPING (tC) CAU ices 
j SINMEDIATE RETURN TO DRVTST. AND (#2) CAUSES RETURN TO 
SETPRM: 
013451 TYPE MPSP sTYPE "> “ PROMPTER __ 
sREAD AND CHECK treur IF ANY 
032272 ISR C,RDCHRS sREAD INPUT LINE 
DRVTST (fC) RETURN ADDRESS FOR RDCHRS 
ASKMDE 042) RETURN ADDRESS FOR RDCHRS 
SETPRM :(4U) OR ERROR RETURN ADDR. FOR ROCHRS 
coooo4 MP RO, #4 ;SEE IF AT LEAST 4 GHARACTERS TYPED 
BGE 6S BR IF AT LEAST 4 TYPED 
oos26e2 4g: TYPE  , BUFFO ECHO BAD INP 
001314 TYPE SQUES TYPE <?> AND. tor >, <LF> 
BR SE TPRM *BR TO ASK FOR INPUT AGAIN 
000013 6S: CMP RO, #11. ‘SEE IF ELEVEN OR LESS CHARS TYPED 


BGT 4$ :BR IF MORE THAN ELEVEN TYPED 






Bae 


OS-OCT-76 
017172 
017174 023761 O0Se2ebe 
017202 eget 
017204 701 00002 
017210 010102 
Bi zele posers S646 
17e16 Oee S674 
Bi ese 001364 
172 000752 
Oi7ee& Ole70e 000002 
Ol7e3se lee7 000075 
017240 001411 
Ol7e42 lee7be dDO0040 
017250 001340 
O17 be 
17eS4 = 1ee7 000075 
Oi7eb2 001333 
017264. 005202 
017266 O20200 
017270 002330 
QOl7e7e iee7be OO0040 
bi7sce Gosens 
017304 ela 
017306 002321 
017310 160200 
O01731e O200e7 9000010 
017316 003315 
017320 702 O0S26e 
0173e4 010246 
017326 004737 052014 
7 017152 
017334 012637 OO0S466 
017340 013737 053146 
7346 004737 033276 
0173Se 0171Se2 
017354 004737 032752 
017360 000662 
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TO - SET (S) INDIVIDUAL PARAM ROUTINE 
SEE IF THIS MNEMONIC RESIDES IN PARAM MNEMONIC TABLE 


CLR TIALIZE PARAMETER INDEX 

8$: CMP eos PRINEM(RI)" TRY 8 MATCH 2-¢ MONIC 
BEQ 10$ ;OR IF P pe SL FOUND IN TABLE 
ata #2,R1 : INCREMENT INDEX 


BR 4$ 
+CHECK FOR VALID LINE FORMAT 


1’Re 
ADD SPAMCST, R2 
CMP BPROFLT, LT’ Re 


;BR IF MORE TO CHECK YET 
BR TO ECHO BAD INPUT 


10$: MOV z INIT TALIZE BUFFER POINTER 
cHPE ee , BUFFO(R2) ; SEE IF NEXT CHAR 3° 
CMPB 3=s«#O40,, BUFFO(R2) SEE IF NEXT CHAR 1S A SPACE 
BNE 4§ :BR TO ECHO BAD 
INC Re : INCREMENT BUFFER POINTER 
CMPB) Os’ =,BUFFO(R2) SEE IF NEXT ca RIS” 
BNE 4$ :BR TO ECHO INVALID INPUT 
123: INC R2 : INCREMENT BUFFER POINTER 
CMP R2,RO 5 SEE | IF MORE CHARS nae IN BUFFER 
BGE 4§ :BR TO ECHO INVAL 
CMPB © #O40,BUFFO(R2) ;SEE IF NEXT CHARACTER is SPACE 
BNE 14$ :BR IF NOT A SPACE 
ING R2 : INCREMENT BUFFER POINTER 
CMP Re, RO :SEE IF MORE CHARS LEFT IN BUFFER 
BGE 4 :BR IF NONE LEFT 
14%: SUB R2,RO -  $SUBTRAC POINTER FROM CHAR COUNT 
CMP RO, #10 SEE HOW MANY CHARS LEFT 


BGT 
;CHECK FOR LEGAL PARAMETER VALUE’ 
ADD #BUFFO, Re 


Re, 
ISR PC’ OCTBIN ck 
MOV (SP) LOWOCT GET LOW BINARY 


BR IF TOO MANY LEFT 


:GET ADDRESS OF DIGITS 

-(SP) :PUT IT ON STACK FOR OCTBIN 

: CHECK pIGiTs AND CONVERT TO BINARY 
RETURN ADDR. FOR OCTBIN 


oct -HIGOCT sGET HIGH BINARY BITS 
18K KPRM ;CHECK VALIDITY OF PARAMETER VALUE 
FOR CHKPRM 


RETURN ADDR. 
; OPEN useR- cere ae 15 FOR MODIFICATION, IF NECESSARY 


CETPRA 


;RETURN TO ASK FOR ANOTHER PARAMETER 


-SBTTL TO - RUN (R) mS 1s ROUTINE 
y¥THIS gy Ht ENT 


THE DE 
 xTHIS IN SEOPCT 


OR THE E H 
j #ORIVE LIST IS SCANNED FOR THE FIRST DESIRED ORI 
#THE H R ON SECTOR 0 QO GET THE 


SET UP THE RUNNING OF TESTS, 


IVE 
FORMAT ton PuIS 
IS 


; SECTOR S_RE 
“DRIVE. THIS IS- eer Onee,! IN THE FORMAT BYTE, AND A JUMP 


; #HADE TO THE pake ay 
*THE END OF PASS 
t xEACH SUCCESSIVE DRIVE FOR TESTING, UNTIL THE ENTIRE PASS 





ROUTINE RETURNS TO “NEWDRV" TO SELECT 


GET COPY OF INDEX 
;SEE IF ALL ENTRIES HAVE BEEN CHECKED 








SEG 0104 


sees we 


| MO-11-DZREN-C - RKEII REDE SUBS 
| O2R6NC.P1  OE-OCT=76 10:07 
| g408 
sic 
| ae 017362 
Eu] ? O4401 011035 
| S45 eee Sao 032272 
s4is 17, is 
S4l— Oi7374 Oieise 
Gul? 517376 O17 362 
Eyis oi 2500 700 
E4i§ 01749 1403 
Ba HR Begg = 
| 252 5332 109401 
S423 O17416 104401 301314 
| Bes Sine? Soars? 
| He rear Sos at 
| Sas? 817434 Oi7aie 
S428 017436 012637? o23540 
| bes Oi744e 01763 
242i piers o0s037 001326 
i 7450 
z gto aee piers 
| et O17464 605037 001330 
| §436 017470 012737 
£437 17376 Ole70e 9011 
&438 617502 105037 9031 
Ei35 5 3: Esse Speesa 
aa) BiPEiE ae 60001 
Ea $i oeee seated 022506 
S444 17532 013700 905 
«ENE Bi7838 287788 
| §44? O17544 106037 001102 
| ete 17550 005037 901304 
433 17554 010037 001332 
E4ey 017560 004727 030776 
| Sige 017564 112765 000125 
E453 017872 004737 940774 
E454 017576 132765 Oo0020 
| bie 017604 601404 
45E 017606 142765 o00020 
5457 017614 600403 
E45e 017616 1527 
E453 017624 604737 040774 
E460 017630 105027 00211 
ete 617624 613737 Oo056 
E 0i7e4e 013737 o05664 
| Ew63 017650 72 00024 
S465 017654 O32762 001000 
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005510 


coode4 
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TO - RUN (R) TESTS ROUTINE 


:# (ALL DRIVES) IS COMFLETED. 


RUNTST: 
PUT TH Me DESIRED a OF PROGRAM PASSES 


PAGE i06 


YPE ENT :ASK FOR NUMBER OF PASSES 
i BEERS ;READ RE 
VTST 3(tC) RE Ss . 
ASKMDE :(¢2) RETURN ess 
4§ :(4U) OR ERROR RETURN ADDRESS 
TST RO ;SEE IF NULL INPUT 
BEG &$ :G0 ASK AGAIN 
MP a, ,RO : ee HOW MANY CHARS TYPED 
GE 8 :BR IF 5 OR 335 
és: ia ‘Sues ‘ECHO BAD INPU 
25 a Fo.-(sP) GET BUF AOR ON STAC 
: Vv = * 
JSR SBE :CHECK DIGITS AND CONVE OVER? To” Hie 
3 “ERROR RETURN ADDRESS FOR OC 
MOV (SP), , SEOPCT ST Des! : NO OF Passes wit 2 ee 
-THIS Is Tue ACTUAL START OF A RUN ulna & PASSES 
STPASS: CLR ;INIT, THE PASS NUMBER 
MOVE 81, TSTING ;SET RUNN NING TESTS” FL FLAG 
NEWPAS: MOV 8] pea /ORIVE =; INITIALI -} 
CLR SEV - INIT APT T DEVICE co COUNT oo 0 
: CHECK DRIVE LIS at MORE DRIVES 70 TEST Pass 
NEWORV: SPRO, a8PS ;RE-ESTABLISH PRIORITY 0 
ROY aSTAC , SP :RESTORE THE ST 
CLR Be :CLEAR ERROR C CURRENT DRIVE 
CLR INTCHR :CLEAR TTY INPUT BUFSER WORD 
INC f : INCREMENT ORI 
2S | pgs: ‘BR IP NOT BONE Check TN cist 
2s: MOV. DRIVE. RO ae NeW DRIVE HUMBER 
$ MOV : 
TST +(RO) :SEE IF “aie palve f MARKED IN us 1g7 
Beg” RE NDRY iB I Reo, i goreck ANOTHE 
CLRB = STSTNM :INIT TEST NUMBE 
CLR STIMES HINT T RATTON: BoUNT 
READ THE MEADER' Of SECTOR 0, TRAbK nee: NANO SFT THE DRIVE FORMAT 
: ISR PC, INITSS init, be Peek PARAMS AND S.S. 
Nove SROHEAD RD,P. croc} recap of ADER C 
8ITe at ad P. esincrid: ; COMPLEMENT THE FORMAT SIT 
BEG 4§ : N TO THE CONTROLLER 
BICB #B.CFMT,P.CSIH(RS) ; AND DO READ HEADER. THIS 
BR 6 ; WILL CAUSE SECTOR 0 HEABER 
4g BISB #8.CFMT.P.CSIH(RS) : 10 BE READ 
m2 hae READ IA TZE FORNAT BYTE TO 0 
MOV S2,FS :INIT SECTOR LIMITS FOR 22(DEC) SECTOR FMT 
MOV $3:15 
TST RKDB (Re) :POP SILO ONE TIME 
BIT #BIT9,RKDB(RE) ;TEST FORMAT BIT IN HEADER WORD 2 


SES 5195 


a TT 


nn a ee 
— _ a ee ee ee. ee 
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meadic et il ‘ a =7§ te _— tO - RUN (R) TESTS ROUTINE 7 


, iE? TOR FORMAT 
i2Se 9015 FORMAT FOR THIS OB1VE. 
ee = Ov T STALLS DESIRED 

ee fi Biss SOSEAE gs: "oy st:sTais et eet OF UNIT STALL 
e470 017734 Gagc7e 38R id gee SECTOR FILE FOR THIS DRIVE 
Bye BISe8S TTarg> BeSEBC ou sue7 MOVE DRIVE, DRVNO GET DRIVE Dent 
woe BiSsa5 LBsaes ee Figs SRRENO COPEL ORE vem 
47S 2ic740 104401 011146 - TST PASS {SEE IF THIS IS F FST PASS 
SYS i774 osra7 COL s26 se os AIF : ih ses 
2558 55589 35545 033602 Top pe’ oryeee TBE “raaye ae i. KOO" 
eure ize bearer eae 2 7  apttucs Lee re Bad SECTORS SHOULD SE TYPED 
Euee Giooss Berate pees La Ma :BR IF NO 
ba ( 
tO ATSeSS Baar i BC. TYPRSF :TYPE BAD SECTOR FILES 
ee: RiSSce Beeree SeceRE sos: oe = INtOUR SINIT. TTY INPUT CHAR BUFFER 
E485 





3 
on 





L-DZREN-C = RKEIL/RE 
DZRENC.P1] | OS-OCT-76 
ay 
eu$8 
548¢ 
s4es 
5490 
£49) 
E492 
5453 
Sale 
Bugs 
E4SE 
E497 
E4S¢ 
E495 
$520 
| 5501 
e502 
S503 
5504 
soos 
506 
5507 
| $508 
| #516 
| S511 
e512 
S13 
| §53% gepnne 
| §515 O20004 012737 
Ele 020012 904737 
| §517 O20016 O04 
Sle 000137 
| §819 
| §530 o20026 004737 
| Pel 020032 004737 
| §523 020036 105737 
| 534 O20042 0601005 
goes O20044 37 
| §526 O200S0 012737 
5527 O20056 013765 
| §588 O2e0064 113765 
| 529 o80072 13 
| §530 020076 013737 
£531 020104 022737 
| $532 O201i2 001 
5533 020114 005 
£534 020120 012703 
S535 020124 904737 
55% 020130 012703 
5£37 020134 O0S365 
S632 020140 100402 
5636 O20142 004737 
| €540 O20146 Oe27E5 
541 O20is4 O22765 


Ome re ee 


001324 


005510 
000002 
000004 


005504 
00SE50 


000002 
00000e 
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er eee TCE TOLFAILURE MEASUREMENTS 


:STEST 1 aoe SET-TO-FRILURE MEASUREMENT 
:#IN THis TEST A REPEATED PATTERN 072307 (0CT) Ss WRITTEN INTO ALL 
: HOBOS OF SECTORS F L KS O-2 OF C FC LC. 

THE SAME SECTORS ON ADJA MT CYLINDERS ARE THER WRITTEN WI 
:# 167230(0CT) (TO EST KNOWN PATTERN ARE NOT TESTED 
: #THEN EACH H DESIRED SEC 18 WRITE CHECKED ‘uttH INCREASING POSITIVE 
:SOFFSETS. UNTIL EITHER A “DATA TYPE” ERROR OCCURS, OR THe FULL RANGE 
2OF Fosity OFFSETS HAVE BEEN APPLIED. THEN. THE SAME SECTOR 18 WRITE 
#CHECKED WITH INCREASING NEGATIVE HEAD OFFSETS, UNTIL FAILURE 
: #MAXI GATIVE OFFSET IS APPLIED. THIS IS DONE FOR ALL THE SECTORS 
:#ORIGI WRITTEN, IN THE FOLLOWING ORDER : SECTORS FS AND LS ON 
acyl fs AND LO FOR TRACK 0. THEN FOR TRACK 1. AND FINALLY FOR 

#TRACK 2. OFFSET-TO-FAILURE RESULTS ARE REPORTED IN ORDER OF 
HINGRERSING KS, AS FOLLOWS : 
i OFFSET-TO-FAILURE MEASUREMENTS : 
:# TRACK CYLN SECT +0FST -OFST 
73 (UIN) (UIND 
+ x XxX XX OOK XXXX 
:# x XxX XX XXXX XXXX 
os <£ Sa et Om on 
cf ETC. 
-% 


s #NOTE: IN AN ADRS 200 DEFAULT RUN, FS DEFAULTS TO 0, AND LS DEFAULTS 
#T0 10(DEC), FOR THIS TEST. 
"legge came apse ate rag arma 


$471, 
MOV #1, $TESTN T TEST NUMBER IN APT MAIL BOX 
ISR PC’ SETTUP i ip T UP FOR LOOP ON ERRO 
JSR PC’ CHKITR : SEE IF ITER. NO. = 0 FOR THIS TEST 
IMP JUMP TO NEXT TEST 

sRETURN HERE FROM CHKITR IF TEST’ SHOULD BE RUN 
138 Pc. IN ITSS s INITIALIZE DRIVER PARAMS AND SUB-SYS 
JSR PC’ PREPKB *PREPARE FOR POSSIBLE KBD INPUT 

s INITIALIZE PARAMETERS, WRITE THE oe ORS AND WRITE CHECK THEM 
TSTB 40 MOFLAG F ADRS 200 DEFAULT RUN 
NE io 2 NOT 
CLR FS =0 
MOV #10.,LS te t LS = _D{0EC) 

38 MOV FC, F. CYLN (RS) -SET CYL 
MOVB  FS‘P.SECT(RS)  ;SET SECTOR © FS 
CLRB Py tReRsRS) :SET TRACK = 0 
MOV Lé CYLNDOR 
CMP #632,LC i SEE IF LC =632 
SNE 43 iB NOT 6 
DEC CYLNOR ace IT 631 (PRESERVE BSF) 

4S: MOV #72307, R3 cet DATA PATTERN 
JSR PC. WRTSEC :D0 WRITE AND WRITE CHECK 
MOV Ate R3 :DATA FOR AJACENT CYLS 
DEC P.CYLN(RS) :NEXT LOWER CYL 
BMI &$ :BR IF CYL NEGATIVE 
ISR PC, URTSEC Q WRITE AND WRITE CHECK 

6S: ADD #2'P.C :NEXT HI 


NCRS) GHER CYL 
CMP #632, 5 YEVLNERS) :SEE IF CYL = 632 





- ae 
SEG 0197 





re + 


E09 
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0S-0CT-7 10:07 Ti OFFSET-TO-FAILURE MEASUREMENT 
ss42 020162 001004 BNE 3g -BR IF NOT 
43 pepi88 2 pooec2 ogc0es CMPB sé’. PL TRCK(RS) ©; SEE F SF 
44 0201 14 BEG 10% :BR IF YES, TO PROTECT 17 
S545 020174 OO473? 036050 8s: JSR PC. WRTSEC °D0 WRITE AND WRITE CHECK 
SS46 020200 005358 gobs 10$: DEC p. EYLN(RS) "RESTORE CYL NO. 
5547 020204 10526 INCB ss P. TRCK (RS) tINCR TRACK 
48 10 765 090003 co00dS “MPR 83,P. TRCK(RS) : TRACK = tT? 
1 1 ENE BR IF NOT YET 
50 12 5 coooo4 oossi0 cre P. x gecT(RS), LS sSEE IF SECTOR = LS 
SEE RESESE Tate 905510 900004 MOVE re P.SECTCRS) iat SECTOR = LS 
3333 020238 155085 ooo00s 123: CLR p.IR eK (RS) SET rine ierTING 
Ecés RESENS popzEs pocog2 oosso4Y 148: CMP P.CYLN(RS), cvunohe "cee gcoNTiN 
ESSE Oedes2 001407 BE 16$ -BR IF YE 
020254 .013765 oosso4 o00002 MOV CYLNOR, P. p,CYRNCRS' SET cy = LC 
E558 O20c62 113765 0550 900004 MOVB FS.P stT SE = FS AGAIN 
€559 020270 000762 26 12$ © :BR Te CONTINUE WRITING 
5569 j INITIALIZE PARAMETERS FOR OFFSET MEASUREMENTS 
eel pe0e7e 032737 o00002 oose70 {&$: BIT #81T1,cS :SEE IF REPORTS ARE INHIBITED 
061002 BNE 18% :BR IF INHIBITED 
TY OF SHED TYPE HEADINGS 
18$: MO FTP b Even ee) $$! TRACK = FT 
HOV FCP :SET CYLINDER = FC 
OVE SET SECTOR = FS 
s LOAD os, R/W purFeR FOR TARTTE HECKS 
RUBUF SET BUFF! DRES 
5570 20340 biSs5e maid 198 nov +400,81 (RO)+ ; PREPARE if LOO BURFER. —_— 
£571 O20344 ShEsee DEC Ri :DECR COUNTER 
Ea tee be os: et ff CS PSs fae 
£574 920 ecaelet éLR RO INT OFFSET NUMBER TO 0 
S75 020354 012727 177777 ocoss44 MOV #-1,PLOFST INITIALIZE CURRENT FAILING (+) OFFSET 
£676 Oe0sbe 012737 177777 ooss4e MOV #-1' NGOFST * INITIALIZE CURRENT FAILING (-) OFFSET 
5577 “PERFORM OFFSETS AND WRITE CHECKS 
£578 020370 112765 000117 o00001 228: MOVB  s#SEEK,P.CMND(RS) ;SET SEEK COMMAND 
5578 020376 004737 040774 JSR C, DRVCAL ;PERFORM SEEK 
£580 d20402 110065 do0006 MOVE OFST(RS) :SET CURRENT OFFSET 
£581 Oe0406 112765 000115 co0001 MOVB  8#OFFSET_P.CMND(RS) :SET OFFSET COMMAND 
S582 020414 604737 040774 ISR PC, ORVCAL - PERFORM 
S5e3 o2042e0 112765 000131 oo000: MOVB oURTCHI. P.CMND(R&) <SET WRITE CHECK COMMAND 
£584 20426 012737 021056 003036 MOV SUIRCKHO A ABNL ;SET SPECIAL ERROR HANDLER ADDRESS 
coes 020434 195037 003131 CLRB  WCEFLG ‘CLEAR WRITE CHECK ERROR FLAG 
c5se O2eo440 604737 040774 ISR PC. DRVCAL ; PERF ORI A WRITE CHECK 
5587 O20444 012727 O42466 003036 MOV #ERRHDL,A.ABNL :RESTORE ERROR HANDLER ADDRESS 
stee oe 112765 000177 900001 MOVB - &SUBCLR POR (REI sort SUBSYS CLEBR CMND 
e569 004737 940774 JSR PC ORVCAL sCLERR THE ayes” TEM 
5590 020464 105737 003131 TS7B 43s WCEFLG :SEE IF A WRITE CHECK ERROR OCCURRED 
£691 020470 001020 BNE 26S :BR If an ERROR OCCURRED 
S692 Oe0472 010001 MOV RO,R1 :GET A COPY OF CURRENT OFFSET 
6593 620474 o05200 INC RO s INCREMENT OFFSET 
E564 020476 062704 000021 ADD #25. .R4 tINCR OFFSET VALUE BY 25(DEC) UIN 
eos C20S02 042701 177700 BIC #177700, Rl :MASK FOR MAGNITUDE 


SEE IF MAX OFFSET APPLIED IN THIS DIRECTION 
:BR IF NOT YET 





FOS 
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DZRENC.P11  OS-OCT-7& 10:07 Tl ofrset- ~T0-FAILURE te oe REN 

ss9e 020514 032700 000200 BIT #81T7,R0 -SEE IF NEG OFFSETS DONE YET 

59s 901015 BNE BR Hef Y Sue To oppatt. CURRENT SECTOR RESULT 

zeae i ood200 24S: MOV 8200,R0 

5601 O20526 o05004 CLR RY sINIT RAs VALUE TO 0 

E602 O20530 eet 3R 223 :BR Y NEG OFFSETS 

5603 020532 o00200 26$: BIT #8217,RO : SEE fe wrt DONE YET 

2e3¢ Sea8 stn ooss4é MOV RY NGOFST ‘Sud th THIS FAILING (-) OFFSET VALUE 

5606 920544 900403 eR :BR TO PRINT CURRENT SECTOR RESULT 

5607 O20546 010437 ooss44 283: MOV R4. PLOFST Re THIS FAILING (+) OFFSET VALLE 
Benes paarae poo002 O0SE70 32% ETT > T1,¢5 iB iF petonl CONMIEITED ; 

Beis Sesees Sere; Be OOS iF THIET TED 

Bae i PE, ie ; TYPE OFF seT RESULTS FOR. THIS setTOR sia 

eei3 pecesa AtBTSe PR trop SBOT TT ON STACK 

5614 d20572 104403 TYPOS IT 

Ssis 920574 063 .BYTE 3 $3 DIGITS 

5616 020575 000 "BYTE 0 ; SUPPRESS 

5617 O20576 104401 013424 TYPE ACES 

S618 020602 Oles4e O000c2 MOV 3° EYLAIRS). -(SP) ;PUT CYL ON STACK 

5619 C2060 104403 TYPOS TYPE IT 

5620 020610 004 BYTE 4 ?4 DIGITS 

5621 020611 600 "BYTE 0. SUPPRESS 

Eés2 Oetsie 104401 o12425 TYPE ace 

Sé23 020616 116501 MOVE p-SECTCRS), Rl  ;GET SECTOR 

5624 010146 MOV R1,-(SP) ‘PUT IT ON STACK 

2eE6 620624 104404 TYPON :TYPE SECTOR 

5627 Bepese ipeas Sheess tere brorst SEE IF THERE WAS A FAILING (+) OFFSET 

H be) 

ces B08 BPL 36$ :BR IF THERE WAS 

E625 020640 104401 011271 TYPE NOFALS :TYPE ” NONE" 

£630 20644 900403 BR : CONTINUE 

E631 Oede4e 013746 ooss44 368: MOV PLOFST,-($?) $PUT (+) OFFSET VALUE ON STACK 

E632 O206Se 104405 TYPDS :TYPE IT IN DECIMAL 

5633 020654 104401. o12426 38S: TYPE SPACE] 

5634 O20660 005737 OOSs4e TST NGOF : SEE IF THERE igs A FAILING (-) OFFSET 

S625 020664 100003 BPL i RIF THERE WAS 

5636 O2066E 104401 011271 TYPE NOFALS TY PE” NONE” 

5627 020672 O00403 BR 2 : CONTINUE 

5638 O20874 013746 oODSssHE 40$: MOV NGOFST, -(SP) $PUT _( (-) OFFSET VALUE ON STACK 

563 020700 104405 TYPDS :TYPE IT IN DECIMAL 

S640 020702 104401 001315 42g: TYPE SCRLF TYPE <CR>,<LF> 

ce4! -SET UP TO TEST NEXT SECTOR 

S642 O20706 126537 O00004 OOSSIO 43$:  CMPB  P.SECT(RS).LS ;SEE IF SECTOR = LS 

5643 020714 001404 BEQ 44 : YES 

5644 020716 113765 ooss10 oo0004 MOVB  LS.P.SECT(RS) SET SECTOR = LS 

Se4S 020724 000611 BR GO TEST THIS SECTOR 

S646 020726 026537 oo00002 OOsSso4Y 44$:  ## CMP P.CYLN(RS),CYLNDR ;SEE IF CYL = LC 

5647 020734 901410 BEG 49§ Y 

S646 020736 013765 oosso4 oooo02 MOV CYLNDR,P.CYLN(RS) :SET CYL = LC 

5643 020744 113765 OOS506 OO00OY 46s:  MOVB FS.P.SECT(RS)  ;SET SECTOR = F 

£650 620752 000137 020350 IMP 20$ :GO TEST THIS SECTOR 

£651 020756 105265 oo0005 48S:  INCB  P.TRCK(RS) : INCREMENT TRACK 

cee2 Oe07be 122765 000003 ocooo0s CMPB 40 sow, P. TRCK(RS) SEE IF TRACK = 3 

5653 020770 OO1404 BEQ so$ _ BR IF YES 
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$s 
2 
ia 


o0se46 000002 iv FC,P.CYLN(RS) 


1000 7% B eet TES ST THiS, SECTOR 

Stee 351006 Tiers 909113 000001 SOS: MOVE seca P. CHNE (RS) sf eRecal C 
5657 921010 737 040 JSR PC, DRVCAL RAGE RE Cal TERA TE 
EeSs 621014 013727 O0S662 o0ssoE MOV 5+ Pe spo thee FS,LS FOR 22 SECTORS 
eee 551055 Ohse3 Beatie “ee: Pere Paabae E IF 22 SECTORS 
eee ests nai ae geye «EGS BEE IF Be 
Sse 621036 613737 OOS&SE OOSSDE MOV 50,FS ‘RESTORE FS,LS FOR 20 SECTORS 
5663 021044 613737 605660 005510 MOV S1,L5 
Bae 021052 us: 
=bE5 021052 000137 021112 IMP TST2 : JUMP TO NEXT TEST 

? ;aTHI THE M TURN FROM THE DRIVER, USED WHEN A 
Bae tx Se ohta Tree Rech BOO ET OT EO wAL TDS 
SEES O210S6 032765 O40000 000020 WRCKHD WWCE,P.CS2(RS) ;SEE IF WRITE CHECK ERROR OCCURRED 

70 O21064 901006 4 F WCE 

7} ;CHECK FOR OTHER “DATA TYPE™ 
EE72 O2l066 032765 130400 oc0034 BIT HVRC!DTE! OPI!DCK,P -ER(RS) 
3 ¢3 e074 s5 205 BNE i BR IF R DATA ERROR OCCURRED 

1 090137 o42e466 IMP ERRHDL 60 FANDLE OTHER ERROR 
5675 021102 105237 00313! 4§: INCB WCEFLG 5ST WRITE CHECK ERROR FLAG 
378 O2110& 000137 O4470e IMP RETNML TAKE NORMAL RETURN 
a 
S680 + LERESERSERELE ERASE RAS ELAL AAAS ARLES SAAS RA LASERS LARARRERLELA ESE 
5661  STEST 2 NPR/MEMORY WORD ADDRESSING TEST 
ESE iI THIS TEST, MEMORY WORD ADDRESSING CAPABILITY DURING RKOG NPR'S, 
4 

5ee4 : BEFORE TESTING BEGINS, THE XXDP LOADER IS SAVED, IF PRESENT, AT ADRS RWBUF. 
Sees !4THEN, STARTING AT THE FIRST ADDRESS OF THE NEXT 1K MEMORY BLOCK 
4-3 ?#BEYOND ADDRESS RWBUF+E000(0CTAL) , WRITE UNI MB 
5687 (STARTING WITH 1), INTO EACH OF UP TO 64K WORDS (DEPENDING UPON THE 
ceee ; BAHOUNT OF PHYSICAL MEMORY). THESE NUMBERS REFLECT UNIQUE RODRESSES 
5E89 WITHIN. THE GHK BLOCK NEXT. WRITE THE 64K WORDS (MAX) ONTO THE DISK 
5696 #AT ADDRESS FC,FT,FS (SCALED IF NECESSARY TO AVOID PACK OVERFLOW 
5691 :40R DESTRUCTION OF THE BAD SECTOR FILE). THEN ZERO THE ENTIRE BLOCK 
5e92 ;#IN MEMORY, AND READ THE DATA BACK K FROM THE DISK, AT THE SAME PHYSICAL 
5632 #ADDRESSES. COMPARE THE DATA READ TO THE DATA WALTTEN. TYPE THE FAILING 
£694 t#VIRTUAL (IF MEM. MGT.) AS WELL AS PHYS CAL ADDRE AND THE GOOD 
cess ; #AND BAD DATA, FOR UP TO THE FIRST 1O(DEC) FAILING Fate Lon 
EES * IF MEMORY GEMENT IS INSTALLED AND THERE IS ADDITIONAL MEMORY TO 
697 SENET REPEAT TH THE E cB0vE i WORD ADDRESSING TEST, FOR EACH OF THE 
cé3$ gee A Ry he Us 5 
5700 O21112 oo0004 +éT2: SCOPE 
5701 021114 012737 oo0002 001324 MOV #2, STESTN ist TEST NUMBER IN APT MAIL BOX 
706 Oellee 004737 032130 JSR PC’ SETTUP i dP uP FOR LOOP 
E703 Oell26 004737 O32176 JSR PC’ CHKITR :SEE IF ITER. NO. = 0 FOR THIS TEST 
£704 021132 000137 Oel4ee IMP TSt3 :JUMP TO NEXT TEST 
5705 sRETURN HERE FROM CHKITR IF TEST’ SHOULD BE RUN 
E706 021136 004737 030776 JSR PC, IN ITSS ; INITIALIZE DRIVER PARANS AND SUB-SYS 
E707 O2ll42 004737 027202 JSR PC’ PREPKB :PREPARE FOR POSSIBLE KBD INPUT 
E70¢ : SAVE XNOE LOADER, IF PRESENT 
£70 O21146 004727 o204Se pd, FNDXDP aia STARTING ADR OF XXDP 
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S710 O211S2 012737 oO64640 OOSsSsHO MOV SRWBUF.XDPSAV  ;SET XXDP SAVE AREA ADR 
asta RS tiES RRSees RoRe 3s $e BRF Bvt P :GO SAVE XXDP LOADER 
e213 921170 113737 900001 po3124 Move tL age SET INDICATORS 
i? Beidre discal ORRO, BOs LES Noy OE FEN SSET FLAG FOR SVPRMS 
e216 ee y " INIT PeRGIE TERS, "oes TESTING 
18 R518 pete ? 532208 4S: I PC’ - NEUE fe MA R WORD COUNT FOR THIS MA 
5719 Oele22 05701 TST Ri :SEE IF ALL MEMORY TESTED YET 
Bo0 O2lee4 100467 BMI a} :BR IF ALL DONE 
721 Oeless OOS065 o00012 CLR PWCC(RS) :INIT WORD COUNT TO 65,536(DEC) 
Bree be lese p57 oI TST Ri :SEE IF WRD CNT SHOULD BE 65,536 
1234 001 BNE séd&S 'BR IF YES 
5724 O2l226 905400 NEG 
oe Giese BE cmos: OBE STE, 
7 AD H . H * 
2558 pete Bt 1 ape? 78 MOV MA+2.R1 :GET MA Bite te23 
5728 021256 042701 177774 BIC #177774, R1 :MASK FOR LO 2 BITS 
5729 Oeles2 150165 900067 BIS8 RI,P.BAHI(RS) ;SET BA SITS 16,17 
5730 021266 005737 OoS6246 TST sktii :SEE IF MEM MGT PRESENT 
6731 Oele7e 100010 BPL 14$ :BR IF NOT 
5732 ;SET UP MEM MGT 
| 5733 021274 013737 oOSS7& 905602 MOV MA, PMA :SET BUFFER ADDRESS 
£734 021302 013737 O05600 OO5604 MOV Mate, PMA+2 
| §735 021310 O04737 03033 JSR_ ___PC,PREPAR ;PREPARE MEM MGT REG’S AND UNIBUS MAP 
rs - PERFORM wate TESTS 
_ §737 021314 012737 021314 001110 14s: #. , SLPERR ;SET NEW LOOP ON ERROR ADRS 
| §73@ 021322 904737 032130 eR PC’ SETTUP :SET UP FOR LOOP ON ERROR 
| 6739 021326 004727 040304 JSR PC’ Svp RIS :SAVE PARAMS FOR THIS XFER 
| §&740 021332 904737 036144 JSR PC’ LOME “LOAD THIS MEM BLK WITH INCREMENTING DATA 
| £741 021336 112765 000123 oo0001 MOVB aia, B. CMND(RS) ;SET WRITE DATA COMMAND 
| §742 021344 004737 O4O4IE JSR , TRNSFR- sWRITE THE DATA 
| §743 O213S0 O0s003 -1 Be BS’ :SET DATA WORD = 0 
| §744 021352 004737 026156 JSR PC, LDMEM2 iLOAD Men BLK WITH ALL ZEROS 
| §745 021356 112765 000121 oop0001 MOVB #RODATA,P.CMND(RS) ; C 
E746 021364 604737 O404I6 JSR Be TRNCER pe hae THE DATA FROM DISK 
| 5747 0213270 004737 036310 ISR PC; CKMEM1 :PERFORM SOFTWARE COMPARE OF DATA 
E748 021374 i044]! SCOPER :CHECK FOR INTERNAL LOOP ON ERROR 
5749 :GET NEW MA FOR NEXT TRANSFER 
£750 021376 004737 0272306 JSR C, INCRMA ;COMPUTE NEXT 
| §75} Oel40e 900705 BR us 60 SEE IF MORE” MEMORY TO TEST 
| §782 021404 004737 030536 Sos: JSR pc GETXDP “RESTORE XXDP LOADER 
| §753 061410 105737 003134 TSB UB BHPR ;SEE IF UNIBUS MAP PRESENT 
| §754 081414 001402 BEQ 
| §755 021416 005037 172516 CLR Sera ‘DISABLE UNIBUS MAP 
 «§75— Oel4ee2 Sus: 
| §757 
«BE 
S760 [seepeqeneeeenee eT aa Mente i 
 §761 TEST 3 /MEMORY BLOCK ADDRESSING TEST 
| orbs i#IN THIS TEST. HENRY BLOCK ADDRESSING CAPABILITY DURING RKO& 
| §764  SBEF ORE TESTING BEGINS, THE XXDP LOADER IS SAVED, IF PRESENT, AT ADRS RWBUF. 


E7ES :*MEMORY WILL BE TESTED STARTING AT THE FIRST ADRS OF THE NEXT 1K 
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001324 


005540 


003124 


003125 


005534 


000010 


005602 
005604 


000001 


: #BRCK INTO THE PROPER PHY 
*AND THEN COMPARE THE 


ON 
;*TYPE FAILURES AS DESCRIBED NABOVE FOR THE FIRST 1O(DEC) FAILING 
:ELOCATIONS IN EACH 64K MEMORY BLOCK 

a CSSESSSSEAEEEESSEEESSESSSEEEOSESSSHAEAEEEAHEEEAEEELEEEEESERESE 


JSR PC, PREPKB 
;SAVE XXDP LOADER, IF PRESENT 
JSR P 


MOV 
SINIT PARAMETERS, 
CLR 


BNE 20$ 
*WRITE AND READ THIS MEM BLK ON iPr 
6$: JSR PC, SVPRMS 
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T Yll 
NPR/MEMORY BLOCK ADDRESSING TEST 


5 AL OCK BEYOND ag Abe dee 
*THE TEST BEGINS BY WRITING A sin GLE NUMBER INTO ALL LOCATIONS OF 
$ #EACH sold BLOCK OF UP TO 64K 
;#EACH BLO THEN WRITE EACH BLOCK ONTO DISK AT ADDRESS F 
ID PACK OVERFLOW OR DEST 


WORDS. THIS NUMBER U NIQUELY DEFINES 
RucTION oF THE BAD 
it 


N HEN RE 
CAL RODRESSES. DO THIS FOR ALL & UK BLOCKS, 


MEMORY TO EXPECTED VALUES. 


;:SET TEST NUMBER IN APT MAIL BOX 

:SET UP FOR LOOP ON 

;SEE IF ITER. NO. = OG FOR THIS TEST 
T TEST 


IMP rt TO_NEX 
;RETURN HERE FROM CHKITR IF TEST’ t's BE_RUN 
JSR 83 INITSS 


TIALIZE DRIVER PARAMS AND SUB-SYS 
‘BREE ARE FOR POSSIBLE KBD INPUT 


;COMPUTE STARTING ADRS OF XXDP 
:SET XXDP SAVE AREA ADDRESS 


;GO_ SAVE XXDP LOADER 
SET INDICATORS 


;SET FLAG FOR SVPRMS 


al XD 
WRITE ND READ BACK ALL MEMORY BLOCKS 
ARE FLAG 


NIT COMP 
T 
A WORD 
;COMPUTE MAX WRD CNT FOR THIS MA 


:BR IF WRIT 
:INIT WRO CNT TO be S36 (DEC) 
Bee IF RD CNT SHOULD BE £o536 


7 SET oy COUNT 


:MA 
:SET BA 
‘SEE IF ee Mg ' PRESENT 
:BR IF NO 


;SET BUFFER ADDRESS 


;PREPARE MEM MGT REG*S AND UNISUS MAP 
iSEE IF = SHOULD BE DONE YET 


tT OATA Wo FOR THIS XFER 
MEMORY BLK WITH THIS WORD 


C’ LDMEM2 ‘LOAD 
AGRDRTE. P.CMND(RS) ;SET WRITE COMMAND 
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ISR 3 , TRNSFR :WRITE THE DATA 

ISR MEM2 i ZERO THE ee IN EMORY 

MOVB yc B, m0 Fe TREAD CON 

JSR Da ATA Beck 

ion p , INCRMA T rE NEU OO a RY 

aC coreut Tre 1: fer NEXT BLK 
iPERFORM SOFTHARE COMPARES OF ALi MEMORY BLOC 


»R3 
JSR FC. CKMEMe 


;GET DAT WORD 
:COMPARE THIS BLK TO GOOD DATA WORD 
j INCRENEN i. THE DA “y WORD 


INCRMA 
BR rc 1ST ee TO The aux 
308: con SELECT ; COMPLEMENT THE FLAG 

tg BR os abt pate SHOULD BE DONE NOW 
sos: JSR GETXDP RESTORE SAVED XXDP 

IST8 Lair :SEE IF UNIBUS MAP PRESENT 
aa CLR J#SR3 : DISABLE UNIBUS MAP 


eee ate gatteee Gene ne 


TES R/MEMORY DATA PATTERN T 
!¥BEFORE TESTING, THE XXDP LOADER I PRESENT, AT ADRS 
:#RWBUF. THEN, ALL PH YeTeALS MEMORY saved, ot REBT ING AT THE 
4FIRST ADRS OF THE NEXT 1 Y BLOCK BEYOND RWBUF+6000‘0CT), 
:% ARE EXERCISED WITH UP TO 16 DATA PATTERNS 
:% CHOSEN I PARAMETER PT. ( SAME PATTERNS 
: ¥PROVIDE SE IN THE READ/WRITE DATA. TEST) TF PT = 0, THE 


0,AND 1 
Bp eh” Bak WORDS te reRTING aT 
OR K B 





E . 
;*COMPARED. THIS IS D C A 
;*POSSIBLY INCLUDING THE USER-DEFINED PATTERN 15 
eee AL PSMWeRNSEESSMSSESELESAESAASARES SAAT EERESTSSERERENEOS 


T4: COPE 
MOV #4, STESTN ;SET TEST NUMBER IN APT MAIL BOX 


JSR PC; SETTUP ree T UP FOR LOOP ON ERROR 
JSR PC: CHKITR ; SEE IF ITER. . = 0 FOR THIS TEST 
JMP TSTS ;JUMP TO NEXT TEST 
; RETURN ae FROM CHKITR IF TEST SHOULD BE R 
JSR Px ANTS ‘PREPARE FO DRIVER PARAMS AND SUB-SYS 
KB PREPARE FOR POSSIBLE KBD INPUT’ 


ISR PC; PREPK 
;SAVE XXDP LOADER,’ IF PRESENT 

ISR pt. FNDXDP 
MOV wRLIBUF UF 4 XDPSAV 


CLR 
JSR PC. PeaVXOP 


comput STARTING ADR OF XXDP 
:SET XXOP SAVE AREA ADR 


;GO SAVE XXDP LOADER 
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S878 022040 112737 900001 003124 MOVE #1, XOVLAD :SET INDICATORS 
5879 022046 116737 000001 o031e5 MOVB #1, XDPSVD 
5880 o22054 904737 024270 ISR PC’LODP14 GENERATE PSEUDO-RAND PAT 14 
5881 O22060 013737 o0ss34 MOV PT; PATRN COPY OF PT 
ceenes S010 -BR IF PT NON-ZERO 
l 007400 905534 MOV 400, PATRN :SET DEFLT PATRNS = PAT 8,9,10,11 
sey - INIT PARAMETERS. BECiN TESTING 
SEES pee076 54 937 90 eS: ISR Pc SETUPM s INIT PARAMS 
5 g 6 4§: J5R PC,  MXWRDC get at wAQRD COUNT FOR THIS MA 
é i 
eee bestia {beens Bat Ss Be iP art 'po 
5889 O22ll2 oososs oo0012 CLR P_WCC(RS) NIT WORD COUNT TO 65,536(DEC) 
3E20 1 995701 TST Rj BEE IF WRO CNT SHOULD’BE 65,536 
é] i I BNE OssébSS :BR IF YES 
5892 O22l22 005400 NEG RO 
£893 022124 oO10065 oo0012 MOV RO,P.WCCRS) :SET WORD COUN! 
5894 022130 013765 905576 O00010 ES: MOV MA;P.BALO(RS)  ;SET BA BITS O-15 
022136 013701 005600 MOV MA+2 RI :GET MA BITS 16-21 
589 22142 042701 177774 BIC #177774, R1 :MASK FOR LO 2 BITS 
5897 oO22146 is0165 00007 BISB RI,P.BAHI(RS) ; SITS 16,17 
5898 Oe2ise 005737 osseous TST Skt1i :SEE IF ate MGT’ PRESENT 
5899 O22156 00010 BPL 14$ :BR IF 
5900 ;SET UP MEM MGT 
5801 O22160 013737 oO0SS76 oDsb02 MOV MA, PMA ;SET BUFFER ADDRESS 
5902 22166 013737 005600 905604 MOV Mase, PMA+2 
5903 022174 004737 020334 ISR PC, PREPAR :PREPARE MEM MGT REG’S AND UNIBUS MAP 
5904 O22200 012704 900001 14$ MOV 1/R4 :SET PATTERN BIT POINTER 
Se0s Oe 37 O0553 16$ BIT R4’ PATRN ; SEE IF THIS PATTERN IS CHOSEN 
5906 O22210 901003 BNE 20$ 
5907 Oeeele 18S: ASL RY SHIFT TO POINT TO NEXT PATTERN 
E O22214 601434 BEG 24g :BR IF NO MORE LEFT TO CHECK 
5 022216 772 BR 168 :GO CHECK FOR ANOTHER PATTERN 
E910 Oecee0 o10401 MOV 4,R1 GET A COPY OF BIT POINTER 
| §ei1 “PERFORM THE TESTS’ 
| §912 oee222 o1 022222 001110 226: MOV #. , SLPERR :SET NEW LOOP ON ERROR ADRS 
| §913 022230 004737 032130 JSR PC’ SETTUP :SET UP FOR LOOP ON ERROR 
£914 O22234 004737 640304 JSR PC’ SVPRIS ;SAVE THE PARAMS FOR THIS XFER 
5815 Oe2e40 004737 034504 ISR PC’ LODBUF LOAD THIS MEM BLK WITH SELECTED DATA 
5916 O22244 112765 O00123 coo00! MOVB gil P. cnn RD a Heit ATA COMMAND 
5917 Oeeese 004737 O404i6 JSR RNSFR WRITE 
6918 O22256 o0S003 CLR es ATA WOR RD 0 
5919 022260 004737 026156 ISR MEM2 ee BLK WITH ALL ZEROS 
£920 022264 112765 000121 ooc00! MOVB aRODRT P. snmocets™ -SET READ COM 
5921 922272 004737 O40416 JSR PC, TRNSFR >READ THE DATA FROM DISK 
| 5982 022576 004737 034732 JSR PC’ CMPBUF ‘PERFORM SOFTWARE COMPARE OF DATA 
| §923 O22302 104411 SCOPER :CHECK FOR INTERNAL LOOP ON ERROR 
5954 022304 18 :CHECK FOR NEXT PATTERN 
5925 -GET NEW MA FOR NEXT TRANSFER 
5926 O22 004737 037306 24g: JSR PC, INCRMA ; COMPUTE NEXT 
6927 O2e3l2 O00673 R § :GO SEE IF HORE AMENORY TO TEST 
6928 022214 004737 030536 sos: JSR PC, GETXDP !RESTORE XXDP 
6929 O22 105727 002134 TSTB 4 3=—- UBMIPRS ; SEE IF UNTBUS “tee PRESENT 
£930 022324 O0140e BEQ 54S :BR IF NOT PRESEN 
6931 dee 005037 172516 CLR a#SR3 :DISABLE UNIBUS NAP 
$22 022332 Sus: 
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+ Ya ae easegeenae oor ge Et ana meaner acne masa 

;*TEST S UNIBUS QUTENT ION Teal 

j #THE PURPOSE OF THIS T EXERCISE | re dl LOGIC 
*WITHIN THE CONTROLLER IN SUCH A MANNER THAT A CON Hig TION FOR 

; KUNTBUS CYCLES ARISES BETWEEN THE PROCESSOR "aN THE RKO6. 


t SFIRST A WRITE DATA IS BEGUN AT ADDRESS FC,FT SECTOR 0, WITH 
:#THE BUS ADDRESS INCREMENT INHIBIT BIT (BAI) SET é N THE CONTROLLER. 


:#USING A WORD COUNT OF 12000(0CT) OR 13000(OCT) ve T 
te }, THE ENTIRE TRACK IS WRITTEN WITH THE FIRST WORD OF PATTERN 
:#18 CF SELECTED) OR THE FIRS T (BY DE 


HE T WORD OF PAT 13 
INSTRUCTION LOOP IS ENTERED IN WHICH 
HEXISTeNT US DEVICE ADDRESS IS REFERENCED ONCE PER PASS. quys 
*WILL RE PROCESSOR SIEZURE OF THE UNIBUS, FOR 5-20 USEC 
(DEPENDING ON THE PROCESSOR), FOLLOWED BY A ey i 


NOUGH NPR’ 
+ #DATA LATE ERRORS TN A _FAULT-FREE CONTRO (eR 
;*THE DATA IS THEN WRITE CHECKED FOR VERIFICATION AND THE ABOVE 
sSTEST IS REPEATED USING A READ DATA COMMAND. NO ERRORS ARE EXPECTED. 


*THE ABOVE OPERATIONS ARE REPEATED 15 MORE TIMES WeINe THE NEXT WORD 
: ¥0F THE PROPER PAT Lae ate s 15) EACH TIME, TO WRITE AND READ 
THE ENTIRE TRACK. IF_A DATA LATE ERROR OCCURS ON A TEIVEN TRANSFER, 
;#THAT DATA IS NOT WRITE-CHECKED OR COMPARED. 


preeeeeee SEXRELAALA ALAA ARLE RARE RAKE RELA RL ELA SALAS LEAL ERALELERELE 


+615: SCOPE 
MOV as, 5. STESTN ;:SET TEST NUMBER IN APT MAIL BOX 
JSR :SET UP FOR LOOP ON ERROR 
ISR pc’ CHKITR ; SEE IF ITER, NO. : 0 FOR THIS TEST 
IMP TSté ‘JUMP TO NEXT TEST 

sRETURN HERE FROM CHKITR IF TEST’ SHOULD BE RUN 
JSR PC, INITSS s INITIALIZE DRIVER PARAMS AND SUB-SYS 
JSR PC’ PREPK® ?PREPARE FOR POSSIBLE KBD INPUT 

s INITIALIZE PARAMETERS 

MOV FC,P.CYLN(RS)  ;SET CYL = FC 

MOVB FTP. TRCK(RS) :SET TRACK = FT | 
CLRB = P. SECT(RS) :SET SECTOR = 0” 
MOV a-{3000, P.WC(RS)’; INIT WORD COUNT FOR FULL TRACK 
TSTB = FORMA ;DETER ERMINE THE F 
BE 4g -BR IF 22 cecToRS 
MOV #12000, P. WCCRE) Set WORD COUNT FOR FULL TRACK 

4$: BIS #DTBAII’P.PRST( BUS ADDRESS INCREMENT INHIBIT 

-WRITE DATA WITH PALL OWAGLE ORIBUE cbiTENTIN AND URI TE CHECK IT 
MOV #PATIS,R -SET PATTERN ADDRESS 
TST Pr ; SEE oP IUSER-OEF INED PATTERN 15 SELECTED 
MOV #PAT13,RO SET DATA PATTERN 13 ADDRESS 

14$: MOV #16.,R1 :SET COUNTER = 


MOV #20. ,R3 :SET NON-EXISTENT MEMORY TIMER 


NN ee ————_— 
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DZRENC.P11 § OS-OCT-76 10:07 tS UNIBUS CONTENTION 
5990 ceeues 010085 900010 16$: Nov RO, P.BALO(RS) S67 BA BITS hee tas 
eda} pes teg 1739 7 Bbso8t 003133 - nov ot LG ay : CLEAR NDoRE TRY FLAG 
5993 O22502 112765 000001 MOVB  #WROATA_P.CMND(RS) =SET GRITE para COMMAND 
Bez Geesl0 008737 3764 [sR PC speener sWRITE DATA DURING NEM REF. 
335 becs14 10s/37 003132 Ste DLIFLG ist OF DATA LATE ERROR OCCURRED 
ES Q22522 0327 5 ooo002 00S474 SIT #BSERR,RECODE :SEE IF BAD SECTOR ERROR 
$98 022530 o0l042 BNE 24g :BR 
5999 022532 112765 000131 000001 MOVE SRT CHK P. CMND(RS) |; ;SET WRITE CHECK COMMAND 
6000 O22540 004737 040774 JSR "WRITE CHE 
O01 j BEAD DATA WITH mae UNTBUS CONT NTION, AND COMPARE LAST WORD 
6002 o22544 o12765 os4640 ooo010 18g: MoV ET BA = "RWBUF ADDRESS 
£003 O22552 005037 Of4640 CLR RWBUF THE BUFFER WORD 
6004 O22556 112765 O00i21 oo0001 MOVB = #RDDATA,P. vemocnistt 
6005 022564 004737 037204 JSR PC, REFNEM 3RE SATA DURING NEM REF. 
6006 022570 105737 003132 TSTB OL FLG ;SEE IF pata LATE ERROR OCCURRED 
6007 922574 O01014 BNE 20$ :BR 

. $008 022576 922037 o64640 CMP (RO)+, RWBUF COMPARE LAST DATA WORD 

6908 Q22602 901411 BEQ U 

10 022604 004737 o4e20s JSR PC, REPSUP GATHER STATUS FOR PRINTOUT 
6011 O22610 016027 177776 001174 MOV StRE) SREGS  :GOOD ba TR WORD 
6012 022616 013737 Ob4640 001176 MOV RWBUF , $REGE "BAD DATA WORD 
6013 O22624 104110 ERROR 110 “READ ERROR WHILE BAI SET" 
6014 -SET UP FOR NEXT PASS THROUGH LOOP 
6015 022626 005301 20$: DEC R1 :SEE IF ALL DONE YET 
6016 Oe2630 001402 BEG 24S :BR IF YES 
6017 O22632 000137 oe2464 IMP 16$ : JUMP TO CONTINUE TESTING 
6018 O22626 24ug: 
£019 
ppt 
£022 © KKZLKLA ARS SHRAL HSE SERA ESE EA RELA AHA ELA RA LE SSRA RFA LAL RSHAA REL EELE 
£023 tLTEST 6 MULTI-DRIVE INTERFERENCE TEST 
£024 *THIS TEST PERFORMS MULTI-DRIVE POSITIONING OPERATIONS, WHILE A 
£025 :¥LARGE DATA TRANSFER IS IN PROGRESS ON THE DRIVE UNDER TEST, FOR 
£026 ¥THE PURPOSE OF DETECTING PROBLEMS OF CONCURRENT DRIVE OPERATION 
5027 t4THE TEST IS RUN ONLY IF THERE IS MORE THAN 1 DRIVE ON THE SUBSYSTEM. 
:* 

£029 ; ATHE TEST PROCEEDS AS FOLLOWS : IT IS FIRST DETERMINED WHICH DRIVE(S) 
£030 (BESIDE THe ONE UNDER TEST) EXIST AND ARE OPERATIONAL. THESE DRIVES 
£031 :#ARE THEN CLEA A SEEK TO CYL O IS DONE ON EACH.NEXT, A SEEK IS 
£032 ;*DONE TO CYLINDER FC (SCALED, IF NECESSARY, ) ON THE DRIVE (UNDER 
£023 TEST. A SEEK IS NOW BEGUN ON EACH OF THE OT IVES, EACH 
6034 :*T0 A DIFFERENT PSEUDO-RANDOM CYLINDER ADDRESS. THIS SHOULD REQUIRE 
£025 FROM 10-67 MILLI-SEC TO COMPLETE. AS SOON AS THESE SEEKS ARE BEGUN 
£036 :#A WRITE DATA COMMAND IS BEGUN on THE DRIVE UNDER TEST AT THE CURREAT 
£037 >#CYLINDER (FC), SECTOR 0, TRACK O, WITH THE BUS RODRESS, INCREMENT 
£038 :*INHIBIT BIT SET IN THE CONTROL LER AND WITH A WORD COUNT OF 15,616 
£039 :*(DEC) WORDS IF 20 SECTOR FORMAT OR 17, 152(DEC) WORDS iF 22 SECTOR 
6040 4FORMAT. THIS WORD COUNT ceOUHTS TO A aipe CYLINDER 1 SECTOR OF DATA. 
6041 *THIS TRANSFER REQUIRES FROM 101-126 MILLI-SEC M N 
6042 T ALL THE OTHER DRIVES SHOULD HAVE COMPLETED BoStTTONIHe 
£943  # A WRITE CHECK IS DONE TO VERIFY THE DATA WRITTEN ON THE DRIVE 
£044 SS OROER TEST, AND A CHECK IS MADE, TO INSURE THAT ALL OTHER DRIVES WHICH 
S045 :¥PERFORMED SEEKS WERE BLE TO COMPLETE THEM SUCCESSFULLY, BY CHECKING 
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: PART 2 MACY11_ 27(1006)_ OS-OCT-76 10:59 PAGE 118 
MULTI-DRIVE INTERFERENCE TEST 


et Ca BITS AND COMPARING DRIVE CYLINDER ADDRESSES TO EXPECTED 
h-Sadedelotol-4-4-4--halalaialelalaladelelalalelelelelaleleielsleleleleleloleleleisieieieieleleleleleieieieleisieleléieleidle 


tite: SCOPE 
MOV #6, STESTN ; -SET TEST NUMBER IN APT MAIL BOX 
fe fevoate feet I itso 0 Se ruts res 
J $ ire TO END “oF brs ROUTINE 
:RETURN HERE FROM CHKITR IF TEST SHOULD BE R 
cR Pc. IN TSS s INITIAL E ORI R PARAMS AND SUB-SYS 
Sk PC’ PREPKB REPARE FOR POSSIBLE KBD INPU 
; CHECK DRVLST FOR bres AVAILABLE DRIVES. AND RECALISRATE THEM 
ov P.CMND(RS) :SET SEEK COMMAND 
CLR ge stNIT MU LTIPLE-DRIVES FLAG 
CLR RO INIT DRI VE NO. TO 0 
CLR  —-~P. CYLN(RS) :SET CYL 
4§: CHP #10,RO ; SEE ir ALL DRIVES CHECKED YET 
TSTB DRVLST(RO) CEE IF THIS DRIVE IS MARKED IN LIST 
BEQ 6$ ?BR IF NOT MARKED 
CHEE RO, DRIVE ; SEE IF /MBRKED DRIVE IS DRIVE UNDER TEST 
MOVB RO, P. DRVN(RS) SET DRIVE NO. PARAMETER 
JSR PC’ DRVCAL :SEEK TO CYL 0 ON CURRENT DRIVE 
INC RI :SET FLAG TO INDICATE MORE THAN 1 DRIVE 
6S: INC RO :INCR DRIVE NO. 
BR 4§ *KEEP CHECKING DRIVES 
8S: TST Rl :SEE IF MORE THAN 1 DRIVE PRESENT 
BNE 9$ iBR IF YES, TO RUN TEST 
JMP MULTIL SKIP TES 
-SEEK TO CYLINDER FC ON DRIVE under’ TEST, SET PARAMS FOR DATA XFER 
3: ISR PC, INITSS ;INIT S. g. 
MOV FC’P.CYLN(RS) SET ¢ YL = FC 
CLR P.SECT(RS) ‘SET TRACK AND SECTOR = 0 
NOY, 8-17 162. ,P.WC(RS) ;SET WC FOR 67(DEC) SECTORS 
TSTB «FORMA 5 CHECK THE FORMAT 
BEQ 128 "BR IF 22-SECTOR FORMAT 
MOV #-15616.,P.WC(RS) ; ;SET WC FOR or DEC) SECTORS 
123: MOV #PAT13,P{BALO(RS) ;SET BA BI 
BIS #OTBAIT,P.PRST(RS) “SET BUS ADDRESS INCREMENT INHIBIT 
MOVB HSEEK B'CMND(RS) ;SET SEEK COMMAND 
yg L FC ON DRIVE UNDER TEST 


JSR p K 
:DO fac er aEEKS ON ALL otHER DRIV 


s INHIBIT fC nek ESCAPE 
MOV SET LOOP Cou ER 
MOV rae RO ORS OF RAND CYL LIST 
158: JSR PC, RNDADR GENERATE a PSE o-RENDOM CYL NO. 
MOV CYLNDR, (RO)+ ?SET CYL N 
BNE l sR N 0: 
ING -2(RO) :MAKE IT NON-ZERO 
16%: DEC RI *DECREMENT LOOP COUNTER 
BNE 15$ :BR IF NOT DONE LOADING LIST YET 
MOV #CYLLST,R1 :GET ADRS OF RAND CYL TABLE 
MOV RS, 198 SET PARAM BLK ADRS FOR DRIVER 
CLR RO INIT DRIVE 


NO. TO 0 
188: CMP #10,R0 :SEE IF ALL DRIVES CHECKED YET 


SEG 0117 
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| DIRENC. Eli  Os-OCf=7e i.e ts wELTI-DRIVE THTERPERENCE. SESh 
6102 O23122 BEO 228 :BR IF YES 
| bigs Beals TSTe DRVLST(RO) > SEE iF THIS DRIVE PRESENT 
61) l BEG 208 :BR I : 
6105 23132 CMP FO, DRIVE ;SEE iF THIS IS DRIVE UNDER TEST 
é1 x ix SEQ ees BE I ve 
i 610 j MOVE O.P.ORVN(RS)  :SET DRIVE NO. PERAMETER 
6108 22144 MOV (R1)4,P.CYLN(RS) ;SET CYLINDER 
6108 322380 ISR pC EIN 6 ORE PREV AND MeieReNT CMNOS 
6110 53315% JR ie _ }G0 START SEEK ON THIS DRIVE 
6111 3160 135 . WORD :P.8. ORS GOES HERE 
e112 j NC :INCR DRIVE NO. 
its 023164 arts i volt = aa BR TO SEEK ON NEXT DRIVE 
£115 Ofz1e6 bg: i nae CIDA) igh MIE, DATA COMMAND 
| $116 023174 Move DRIVE, p! PDA RS) DRIVE NO. 
| 6117 Oesede MOV FCP. if CYL NO. 
| §118 023215 MOV rp Ein A TORN :SET SPECIAL DRIVER RETURN ADDRESS 
£119 O232i6 JSR PC. ORVCAL WRITE 1 CYL + 1 SECTOR AT CYL FC 
| FiE0 Sezece2 BIT RR, RECODE SEE iF vB ERROR 
| Ble, Se3e30 BNE MULTI 
&l2z2 Oeseze MOVE auRTC P.CHNOCRE) oe SF ITE CHECK COMMAND 
| $123 023240 138 IPRA, seh CK K THE De DATA WRITT 
a 4 :CHECK AT NTIONS BRD CHECK CYLI spoures OM ALL AMER DRIVES 
| Eig 3s Move siactare p cnnocréses T eal oe tums COMMAND 
Et5s 35 MOV sCYLLST:Ri eA CYL LIST 
6128 beseb4 CLR RO :INIT DRIVE NO. 
bles Oe3c66 2s: CMP $10,R0 :SEE IF ALL DRIVES CHECKED YET 
£130 Oe3272 EQ MULTI] :BR IF ves 
ae exer TSTB  DRVLST(RO) ;SEE F THIS DRIVE MARKED IN LIST 
1 9 32$ NOT 
$133 023300 CMPB=SséRO. DRIVE SEE IF THIS IS DRIVE UNDER TEST 
| 6134 32206 SEQ 32 :BR IF YES 
613s 623310 BITS T.ORV(RO), SAVARD -SEE IF GOT ATT'N FROM THIS DRIVE 
136 023316 BNE 288 YES 
6137 023220 ISR PC. REPSUP : PREP STATUS FOR PRINTOUT 
 -€138 023324 104113 ERROR 1 :"NO ATTENTION ON SEEK* 
| 6138 023326 110065 28S: MOVE RO, P.DRVN(RS) :SET THIS DRIVE NO. 
 -§150 023332 737 040774 JSR: PC’ DRYCAL :READ STATUS OF THIS DRIVE 
£14: 023236 016503 do00se MOV: =P. pSIOCRS), R23  :GET STATUS BYTE B10 
| €142 023342 ROR :GET CYL ADRS RIGHT-JUSTIFIED 
bis 022344 006003 ROR BR 
§144 023346 006003 ROR R3 
§145 023360 poe003 ROR R3 
bi46 022352 04 177000 BIC #177000,R2 :CLEAR OFF UNUSED BITS 
pix? Gessse Oee103 cHe (R14, R3 sCOnPR RE TO EXPECTED CYLINOER 
Figs Bessee Sits? iv777 colzi2 Roy =3(R1),SREGIY /6900 CYL. NO. 
6150 023370 010337 001214 MOV R3, $REGIS :BAD CYL_NO. 
£151 022274 004737 O4220¢ SR PC’ REPS : GAT HER STATUS FOR PRINTOUT 
6i52 OeH400 104114 ERROR 114 :"DRIVE’S PCURINDER INCORRECT” 
6153 Oez402e O0s200 328: INC RO : INCREMENT NO. 
pied Gez404 600720 ER 26S :BR IF NOT DONE WITH ALL DRIVES YET 
| €15é sTHIS IS THE NORMAL RETURN FROM THE DRIVER WHICH IS USED TO CHECK 
£157 : THE RESULTS OF MULTI-DRIVE OPERATIONS. 
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DERENC.F11 | OS-OcT-76 10:07 te MULTI-DRIVE INTERFERENCE TEST 
= 032737 900200 002770 MULHOL: BIT BROY,T.CS1 SEE i afl TEEE ROY IS SET 
3414 01010 BNE 


READ, cont ? LER REGISTERS 
iBbee Kee : ATUS FOR goes 


folo 
br 4 
Ss. 
ae 
2$ 

“4 
oO 

Cc 
ule 

o- 
“Te © 
bag? 
wm 

wm 

= 


bison, Oe ISR 


O23434 104 ERROR ile cINTRET WHEN CNTRLR NOT 
ese Ge goa coeeco es: Ege seme ae AT ERY re oo 
gissSs Gtk BBSoss Nov ie i “KOR Mice ek Tete URN AOORESS 
_ Bales ie Ee Werac RETURN 
bexs74 MUL TI1: 


.SBTTL END OF PASS ROUTINE 
ppensnoseqegeabevesiannesenussseennenanannnennnneneNeaanEn Nanay 
jEINRENENT: THE ie. go NUNSER ( ted 

(WHERE XXXXX IS A DECIMAL NUMBER) 
rele THERES A A HONETOR G GO TO IT 


;#IF THERE ISN’T JUMP TO NEWPAS 


Baa taal ton ih Gen for ot 
foro 
ae 
£ 
Boh 
Sue 


ibe i etait aie tabi aiatialislislisli sisi alias iii aii a ia aaa a al al 
ite 
~ 


0+ bh b= B= + B= & + OO b+ b+ © Oh * hh hs Os ho b+ = 0 B+ &+ Be Bo + Bo ho B+ Oo Oho he 


g2 
83 023474 SEOP: 
Ee BSsa%e ose. 3 ine SDEVCT NCREMENT DEVICE COUNT FOR AP 
BE 2268 Spare 503338 es NEWORV dn cre F Bene FRfoee TO TEST on THIS PASS 
87 023506 OUNPAS: ;THIS IS TRULY THE END of AP 
88 O22506 042777 900130 155430 BIC #BIT6, aSTKS DISABLE TTY Keo INTERRUPT 
83 023514 005037 001102 CLR STSTNM :ZERO THE TEST NUMSER ? 
80 022520 005037 001304 ECR STIMES : ZERO THE NUMBER OF ITERATIONS 
$1 022524 005237 60132 INC SPASS : INCREMENT THE PASS NUMBER 
S2 022530 042737 100000 001326 BIC $100000,$PASS ::00N’T ALLOW A NEG. NUMBER 
$3 023536 005227 DEC (PC}+ :: LOOP? 
9 923540 1 SEOPCT: .WORD 1 
3 esse poses BGT $SDORGN 7:YES 
39 023544 0127 MOV (PC)+,a(PC)+  ::RESTORE COUNTER 
$7 022546 000001 SENOCT: .WORD 1 
86 O23550 023540 SEOPCT - s 
$$ 023552 104401 023617 TYPE SENOMG :; TYPE “END PASS # 
£200 623556 012746 001326 MOV $PASSs, -(SP) !:SAVE $PASS FOR TYPEOU 
6201 Oe 1044 TYPDS 3380 TPE “DECIMAL AectI WITH SIGN 
bete Oe2s64 10440] 022614 TYPE SENULL !: TYPE A NULL CHARACTER 
6203 023570 613700 dd004e SGETY2: MOV nie RO 3G nontyo OR ADDRESS 
6204 022574 0014 BEQ OAGN ;]BRANCH IF NO MONITOR 
b20S 023576 RESET ?CLEAR THE WORLD 
6206 23600 904710 SENDAD: JSR PC, (RO) £160 TO MONITOR 
6207 Oe3602 d00240 NOP ::SAVE ROOM 
b208 O22604 500240 : 
b203 23606 NOP :;ACTLI 
6210 022610 SDOAGN: 
6211 023610 000137 IMP a(PC)+ : ; RETURN 
pele e312 017456 SRTNAD: .WORD  NEWPAS ‘i 
13 023615 3 277 000 SENULL: ‘BYTE -1,-1,0 :;NULL CHARACTER STRING 


SES 0119 
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DPRENC.P1] | OS-OcT-76 10:07 END OF PASS ROUTINE 

6214 023617 1s geeeie ove1t SENOMG: .ASCIZ <15><12> END PASS & 

62:5 6 Osis 

pei sas FERS 

be1e SBTTL RKO& HEAD ALIGNMENT AID 


a a + ee ee Se ee oe ee rhe tet eee 
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as RR 
TTL NITIAL 
+; CLEAR tg eee 5 seg er taa se "an 
SSCMTAG,RE 3 FIRST LOCATION TO ston CLEARED 
(RE)+ ;;CLEAR MEMORY LOCAT 
cup @SWR,RE ;;DONE 
BNE ::;LOOP BACK 


IF NO 
MOV. = _SSTACK, SP ;;SETUP THE STACK POINTER 

ss INITIALIZE A FEW vectors 
HOV SSCOPE, SBIOTVEC 55107 VECTOR FOR SCOPE ROUTINE 
Mov 340 asloTveces 


V : EMT VECTOR FOR ERROR ROUT 
oy tSag auehtecce sa 9 = sashes 
MOV AP. JaTRAP TRAP VECTOR FOR TRAP CALLS 
MOV ies DaTRAPV <4 steve 7 


MOV +40, 94 RoeveCs VEC’; ;POWER FAILURE VECTOR 
MOV 8340 QHCURVECTE (EVEL 7 


MOV SENOCT, !:SETUP END-OF-PROGRAM COUNTER 
CLR :t INITIALIZE NUMBER OF ITERATIONS 
CLR Seennee *:CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB 81, SERMAX + ALLOW ERROR PER TEST 
MOV ++ $l ;;INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV s. -SETUP THE ERROR LOOP ADDRESS 
::SIZE FOR A HARDUDRE STTCH pecteTe R. IF NOT FOUND OR IT 
:EQUAL TO A “=1", SETUP FORA SOFTWARE SWITCH REGIS 
MOV DKERRVEC,-(SP) ;;SAVE ERROR VECTOR 
MOV #64$ SHERRVEC ::SET UP ERROR VECTOR 
MOV #0S ;;SETUP FOR A HARDWARE SWICH REGISTER 
nov toDisP DISeLay :# BND f HERDUARE DISPLAY REGISTER 
BNE 665" ; ;BRANCH IF NO T REOU ROWERS Bee uRRED 
THE HARDWARE SWR IS NOT = -1 
BR S$ 1] BRANCH IF NO TIMEOUT 
64S: Oy #65$, (SP) ::SET UP FOR TRAP RETURN 
65$: MOV ;;POINT TO SOFTWARE SWR 
MOV TsereG,c DISPLAY 
663: MOV S aRERAVEC ;;RESTORE ERROR VECTOR 
CLR SFASS CLEAR PASS COUNT 
BITB  sAPTSIZE,SENVM His USER size UNDER APT 
BEQ 675 S,USE NON-APT SWITCH 
iw MOV S$SWREG, SWR ::NO,USE APT Suitcn REGISTER 
.SBTTL RKOG HEAD Hl AID 
RESET ;RESET UNIBUS 
TYPE  ,DZRON :TYPE PROGRAM I.D. FOR PART 2 
TYPE ,SUBVER 
TYPE PART 
MOV kSWREG, SWR ;ADRS OF SOFTWARE SWR 
CLR aSWR *MAKE SWR BITS ALL O 
MOV #KBDHDL,.aTKVEC ;LOAD VECTOR FOR TTY K60 
MOV #PRY SatkvEcss SET 


KBD PRIORITY 

MOV rKvEt RI :GET ADDRESS OF VECTOR STORAGE 
MOV #1. “Nt (R1)+  3SET IT TO INTERRUPT HNOLR 
#PR?, (RL) :SET INTERRUPT HANDLER PR? 
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Se Hes 


176543 053246 
0S3250 


011600 


Rk is HEAD ALIGNMENT 
ney a Yee INTERRUPTS 
Vv aLSTEYL,LC CYL = 410(10) 
GIVEID: 


817ES543,SHINUM ; INITIALIZE PSEUDO-RANDOM NUMBERS 
MOV 8123456, SLONUM 


CL MOF LAG sCL BR para INP 
EL TeTINe CLEAR ANP Eb Pe FLaG 
éLR STALLS “DON’T STALL ie OPERATI 
Hoy aPRYCHO Rl :2ERO OUT PREV ON OMREND 
V #6,R 
42$: CLR (RLD+ 
DEC Ro 
CLR EESont ;CLEAR ERROR COUNT FOR RESTARTS 
TYPE IDENT : TYPE PROGRAM IDENTIFICATION 
TSTB AL POVL : SEE F HELP FILE OVERLAID 
BNE ASKM :BR I 
TYPE, FORHLP :ASK IF VRELP DESIRED 
RDCHR :READ RESPONSE 
MOVE  (SP)+,R1 GET CHARACT 
CMPB ais Rl :SEE IF <CR> TYPED 
BEQ ASKMOD BR IF NO HELP NEEDED 


TYPE »HLPFIL ;HELP REQUESTED- TYPE INFO. 


; DETERMINE DESIRED — MODE 
ASKMOD: he MOD 3 ASK one peattee Tae MODE 


Be” PREPKE : PREPAR 

1$: TST INTCHR :CHECK FOR TTY INPUT 

BEQ ic :8R IF NO INPUT YE 

MOV INTCHR, RI ‘GET INPUT CHAR INTO RI 

CMP #022, Ri :SEE IF (tR) TYPED 

BEQ IVEfD :BR IF (*R), TO RESTART 

CMP #°M,R1 -IS$ IT AL 

NE :BR IF_NOT 

IMP MANUAL JUMP TO MANUAL MODE ROUTINE 
2g: CMP #’A,RI :I§ IT AUTO MODE ? 

BNE 35 :BR IF NOT AUTO 

IMP AUTO JUMP TO AUTO MODE ROUTINE 
38: JSR PC, ECOBAD :ECHO BAD INPUT 

BR ASKMOD :BR TO ASK FOR MODE AGAIN 
“MANUAL SELECT MODE ROUTINE 
MANUAL : 

TYPE TYPHAN TYPE “MANUAL SELECT MODE” 
ASKDRV: TYPE  ‘ENTDRV :ASK FOR DRIVE NUMBER 

ISR PC. PREPKB :PREPARE FOR ep" UONPUT 
1S: TST INTCHR :SEE IF ANY INPUT 

BEG t§ :BR IF NONE TO CHECK AGAIN 

MOV TATCHR Ri :GET CHARACTER INTO R1 

C 022 !TEST FOR (*R) TYPED 


MP R18 
BEG GIVEID :BR IF (tR) TO RESTART 
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bossd0 
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012724 
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000001 


wned HEAD AL IGNMEN 
CMP R1,8°0 wae fe 2 
a 3 : Be ded “hed ) 
GT 35" i Cont 
IC: #0, R1 aa ia tg 


oe Ri, ORIVE sPROCE WITH SFRED ORIVE 
23: $e ECOBAD aS Bap eu ge 
Es BSKDRY IN 


+65 MBACK TO ASK AGA 
3$: ISR INITIALIZE SUBSYSTEM 
>CHECK DESIRED DRive” Ie SpROPER éTatus 


J5r PC, CHKDRV >CHECK DRIVE FOR ON-LINE,READY, WRITE LOCK 
ASKDRY :ADDRESS OF ERROR RETURN | FOF CAKDRY 
JSR ‘TYPE “DRIVE SER. NO. 
iSET TP DESIRED SUB NOSE OF OPERATION 

CLRB ss VERIFY ;CLEAR VERIFY MODE F 
TYPE ENTMCO "ASK FOR ALIGN OR EX SERCISE SUB-MODE 
JSR PC PREPKE :PREPARE FOR KBD 

18: TST INTCHR :SEE IF ANY A ia 
BEQ 3 :BR IF NONE TO CHECK AGAIN 
MOV INTCHR,R1 :GET CHAR INTO RI 
CMP R1, #022 :SEE IF (tR) TYPED 
BNE 2g :BR IF NOT (¢R) 
IMP GIVEID :JUMP TO RESTART 

2s: CMP R1, #003 :SEE IF (tC) TYPED 
BNE 3$ :BR IF NOT (tC) 
IMP ASKDRV :JUMP TO ASK FOR DRIVE AGAIN 

38: CMP R1,#°A :SEE IF ALIGNMENT REGUES 
BE MANAL :BR IF MANUAL ALIGNMENT REQUESTED 
C R1, aE ;SEE IF EXERCISES REQUES 
SNE u§ :BR IF NOT EXERCISES 
J MANEX JUMP TO DO MANUAL EXERCISES 

4$: CMP R1,a’V :SEE IF VERIFY REGUESTED 
BNE 6$ :BR IF NOT VERIFY 
IMP MANVR :JUMP TO VERIFY MODE 

&$: JSR PC, ECOBAD *ECHO BAD INPUT 
OF, SUBMOD :ASK FOR SUB-MODE AGAIN 


:MANUAL ALIGNMENT MODE 
MANAL : 


YPE ;REPORT MANUAL ALIGNMENT MODE 
REQUEST TONE CHEEK DE DESIRED HEAD 


ASKHED: TYPE ENTHED :ASK FOR DESIRED HEAD 
Tek PC PREPKB :PREPARE FOR KBD INPUT 
1$: TST INTC HR :SEE IF ANY INPU 
BEQ :BR IF NONE 19 CHECK AGAIN 
MOV TR TCHR RI ?GET CHAR INT 
CHP Rl, 8 #022 i SEE IF CR) 
MOVB © SRECAL. P. CMND(RS} SRF Ree ReCaL IERATE COMMAND 
ISR PC, DRVCAL SRECALI E DRIVE 
IMP GIVEID : TUM MPs #8 “RESTART 
2s: CMP Ri, #003 :SEE IF 


SEG 0123 





H10 
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6287 024702 001007 BNE 33 NOT (10) 
£398 34703 He 000113 000001 MOVB = BRECAL,P. cmocesien "otf RecaLt BRATE COMMAND 
£389 712 737 0407 JSR PC, ORVCAL sRECALIBRATE DRIVE 
3¢ 716 0001 4 IMP ASKDRV IU TO ; FOR DRIVE AGAIN 
] 7 9201 3S: ¢ R1, #032 see F ( Les 
F33: peuses ieres 3 000001 core mre AL,P ee we wor (12 IBRATE COMMAND 
a3 o047 ors Te EUBROD ata ssf BATE a: SUB-MODE 
. MOS 
Face Beurae Seni2> SecaES us; GeO OR tau ARE TRACK TO Rectt 
6397 24752 902410 BLT c$ in BR IF <0. (800 INPUT) ‘ 
b235 Re i220 — gt Bd ‘BR IF >2 Bab INPUTS 
£400 024762 042701 oo0060 BIC #°0,R1 STRIP ASCII BITS 
6401 Oe4766 010137 05520 MOV R1, TRACK :STORE TRACK (HEAD) NUMBER 
é402 024772 O004 BR 6S’ : GO 
6403 024774 004737 027322 Ss: ISR FC ECOBAD "ECHO BAD INPUT 
6454 000137 O24630 IMP HED ASK AGAIN FOR HEAD NUMBER 
£405 “UNLOAD HEADS, ang WHEN READY, START SPINDLE BND SEEK TO ALN CYL 
640 025004 105737 011434 é§: TSTB ERIFY E IF VERIFY MODE 
£407 O2eS5010 001002 BNE e§ 
6408 025012 004737 ISR WAITY UNLOAD EADS, WAIT FOR <R> TYPED, LOAD 
6408 O2S01E 113765 S20 o0000S ss: MOVB TRACK P. TRCK‘RS) - SET DESIRED HEAD NUMBER 
6410 025024 004737 031770 JSR ALNSE sEEK I 0 ALIS NT CYLINDER 
E411 025030 104401 012653 TYPE Gepboee* YPE HEADS P OSITIONED MSG 
é4le 025034 013701 520 MOV eo R1 :GET BINARY TRACK NO. 
6413 O25040 15270 D060 BISe «a0. RI : CONVERT 70 ASCII 
6414 025044 110137 013012 MOVB _ R1. HEADNO :GET HEAD NO. INTO MSG BUFF. 
B41S O25050 104401 013005 TYPE HEDSEL :TYPE HEAD SELECTED MSG 
6416 O25054 O001 4630 IMP ASKHED :GO BACK TO ASK FOR NEW HEAD SELECT 
6417" ~, 
B48 ~ 
6419 . 
g429 “MANUAL SELECT VERIFY MODE 
bse GEE? HECHT Seopa, Suisas Pawn Oe MLR IRE AP IOOGERLEY noe 
ce BSEnSS hora? BaSE IMP ASKHED ?GO ASK FOR DESIRED HEAD 
6425 * 
6426 : 
£427 :MANUAL RANDOM SEEK EXERCISE ROUTINE 
Fuse 255 904737 932024 forex: ISR PC WaTT4R NLOAD HEADS, WAIT FOR <R> TYPED, LOAD 
454 ate 013701 o0s MOV DRIVE ee DRIVE NUMBER 
6421 O25106 052701 oon060 BIS - ie :CONVERT TO ASCIT 
6432 025112 119137 O12550 MOVB Ri ORRTEXR ;PUT DRIVE NUMBER INTO OUTPUT BUFFER 
6433 025116 104401 012471 TYPE YPE RANDOM 
6424 o25122 012700 o16514 MOV KRNDLNG, RO t INITIALIZE RANDOM SEEK COUNTER 
6435 025126 112765 000117 oco0001 MOVB § #SEEK, P/CMND(RS) :SET SEEK 
6436 025134 904737 027 13: JSR PC, PREPKB ; PREPARE FOR KBD INPUT 
6437 140 004737 O34i22 2s: JSR RNDADR SELECT RANDOM CYLINDER ADDRESS 
6438 025144 013765 5o4 ooo002 MOY ECCROR P. CYLNCRSS -SET RANDOM CYLINDER ADDRESS 
6429 152 004737 040774 JSR PC, ORV -DO A RANDOM SEEK 
B440 :CHECK FOR TTY INPUT DURING EXERCISES 
6441 O25156 005737 oDss2e2 TST INTCHR ;SEE IF ANY INPUT 
e442 O251b2 OO10le :BR IF A CHAR WAS TYPED 
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024214 
c0C101 
000105 


026442 
000126 


o00cd1 
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1S3746 
000091 


900001 
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0000°1 


011434 
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ae cae Se Ie ver 
he Beige Sal Kop RTERRUPY 
MOVE  #RECAL,P.CMND(RS ET BEC BL IBRATE COMMAND 
JSR PC. DRVCAL 
TYPE § aa aN G-BELL TO. SIGNIFY END OF F ORRERCISES 
IMP SUBMO :G0_ASK NEW MANUALS 
3S: MOV INTCHR, RI :GET CHARACTER INT 
CMP Ri, e022 SEE IF ( 
BNE 4 NoT 
MOVE sRECAL P.CMND(RS) -SET RECAL IBRATE COMMAND 
JSR RVCAL :RECALIBRATE DR IVE 
IMP Surah OMe TO RESTAR 
4§; CMP ei BOb3 SE if ’ 
BNE § NOT (40) 
MOVB  BRECAL.P. omnpcrsie nodt RE CALIBRATE COMMAND 
JSR PC, ORVCAL ;RECALIBRATE DRIV 
IMP ASKDRV io TO ASK FOR NEW DRIVE NUMBER 
S$: CMP R1, #032 ;SEE IF 
BNE BR IF NOT (2) 
MOVB = SRECAL,P. omnpcrs! -SET RECALIBRATE COMMAND 
JSR PC, DRVCAL RECALIBRATE DRIVE 
+ IMP SUBNOD Jue TO ASK_F OR NEW MANUAL SUB-MODE 
TYPE GaRECE eee STILL IN MANUAL EXERCISES 
BR is :BR TO CONTINUE EXERCISES 
AUTO SELECT MODE ROUTINE 
ISR PC, INITSS s INITIALIZE SUBSYSTEM 
TYPE TYPAUT vee .“A SELECT MODE” 
18: CLR IFY ME R eR an MODE FLAG 
TYPE ENTMOD ASK GN, VERIEY, OR jPERCISE 
JSR PC. PREPKB : PREPARE PORK KEYBOARD’ INP 
2¢: TST INTCHR : SEE IF ANY INPUT 
BEQ :BR IF NONE, TO CHECK AGAIN 
MOV INTCHR, R1 :GET CHAR INTO R 
CMP Ri, #022 :SEE IF (tR) TYPED 
BNE :BR IF NOT (1) 
IMP GIVEID : JUMP TO RESTA 
2S: CMP 1,8°A :SEE IF AUTO ALIGNMENT REQUESTED 
BEQ AUTAL :BR IF AUTO ALIGNMENT REQUESTED 
CMP R1,#’E :SEE IF bu 0 EXERCISES REQUESTED 
BNE 4§ :BR IF EXERCISES NOT REQUESTED 
IMP AUTEX : JUMP TO DO AUTO EXERCISES 
4§: CMP R1,a'V ‘eee IF VERIFY REQUESTED 
BNE :BR ie NOT VERIFY 
MOVB #1, VERIFY :SET VERIFY MODE FLAG 
BE AUTAL iBeooeey nN VERIFY MODE 
6S: SR PC, ECOBAD 
BR 1$ :BR TO ASK TOR , OR E AGAIN 





Py » rs he SUBSYS. oh : PART 2 
DZRENC.P11 0:07 RKO& HEAD ALIGNMENT A 


05-OCT-76 1 
6499 
E601 Oeeee 
1 446 105737 011434 
650e Oes4Se 001403 


6503 OeS4S4 104401 O13116 
6 OeS46e pratt 013060 
& 027302 
6507 OeS47e 005037 003014 

005037 05524 


0eS604 
65e4 O0eS606 Oe? 000377 


6530 OeS640 37 
e. 2S Ge Be 
Bs fee Hee Be 
peat OeS&62 (037 


6536 OeS66E 113765 005500 
6537 Oe5674 112765 000101 
6538 025702 0047 040774 

000007 


eeua oeeriy 0014 
eal Oeérie Oose3? o0ss00 


75e 
6S4S 025730 013701 005530 
6547 025734 023737 005530 


670 
6549 OeS744 012703 000001 
6550 025 prec te 177777 


O0SSe6 
005530 
005532 


000008 
000032 
005532 
000091 


000022 
005532 
000001 


003036 
000000 
000001 
005500 


005526 
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*AUTO ALIGNMENT MODE 
itae: 


3$: 
4$: 


DRVLUP: 


s SELECT 


10S: 
; HEEEES 


LOOP1: 
LOOPe: 


TSTB =: VERIFY ;SEE IF AUTO VERIFY MODE 
BEG $ IF NOT 
TYPE gguTVRF REPORT AUTO VERIFY MODE 
FOE AUTALN YPE ALIGNMENT MESSAGE 
JSR bc PREPKB  DREPARE FOR POS BLE KBD INPUT 
CLR T. Re *CLEAR MR2 STO WO 
LR SELECT : INITIALIZE AUTO-SELECTED DRIVE. INDICATOR 
MOV #377, ONLINE : INIT. OLD ONLINE DRIVE INDICA 
NOY «a7 7" CRACH INT a Tue LAs Fe nae 
3 
rey INTCHR iM tf oa: 6b IN 
BEQ 6$ i IF N 
MOVE SCRACH, P. DRVNCRS) ; RIVE 80, FOR epOSssieLe RECALIBRATE 
chPS NTCHR, #032 iE nate 
CHP 837, , SCPACH SEE ONY BAEVE SELECTED YET 
MOVB - SRECAL.P.CMND(RS! .SET RECALIBRATE COMMAND 
ISR PC, DRVCAL sRECALIBSATE DRIVE 
IMP auto *RESTART AUTC MODE 
CMPB —sINTCHR, #022 :SEE IF (1R) }YPed 
BNE 4g :BR IF NOT ( 
CHP #377, SCRACH SEE IF BNY iRive SELECTED YET 
MOVB = #RECAL,P. CHNOCRSS -SET RECALIBRATE COMMAND 
JSR PC, DRVCAL RECALIBRAT TE DRIVE 
IMP GIVEID :RESTART ALIGNMENT AID 
ISR PC, ECOBAD ‘ECHO BAD INPUT 
JSR PC’ PREPKB ; PREPARE FOR POSSIBLE KBD INPUT 
CLR DRIVE *ZERO THE DRIVE NUMBER 
MOV 1.R0 iS ieb as DRIVE BIT MASK 
MOV #NEDHDL, A. FN NORMAL RETURN ADDRESS 
BIS R Nenoh :SET ON Ne BIT FOR THIS DRIVE 
CURRENT DRIVE, CHECK FOR’ RON-PRTST ENT IVE (NED) INDICATION 
MOVE DRIVE. P-DRVNCRS) DRIVE NUMBER 
MOVE § #SELDRV.P.CMND RSS; “SET SELECT DRIVE COMMAND 
JSR PC, DRVCAL SELECT THIS DRIVE 
CMP #7 | DRIVE a3 IF We et CHECKED DRIVE 7 
BEQ 10$ ;BR I IF FIT Me 5 DRIVE ? 
INC DRIVE :ADD 1 TO BRI VE NUMBER 
CLC ‘CLEAR CARRY BEF One ROTATE 
ROL RO :SHIFT BIT POINTER 
BR ag :BR TO SELECT NEXT ORIVE 
MOV NEWON, R1 
TO BE REMOVED’ #¥#x%%% 
CMP NEWON, ONLINE 
BEG RVLUP 
MOV #1,R3 sNUMBER OF 200 MILLI-SEC STALLS 
MOV #177777, RO 
DEC RO 
TST RO 
BNE LOOP2 
R3 


MO-11-DZREN-C - RKE11 
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6555 025764 
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fees 0505 
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e561 
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Eeec | SSEbs8 
re 026024 
6569 026034 
6570 26036 

. §571 Oes040 
E572 O2E04e 
£573 
g574 
£575 
6576 26052 
6577 
£578 
£579 26062 

| 6580 026070 
6581 026074 
| gee 
E583 OP6100 
6584 26104 
g5es 
E586 026106 
| 5a? O5e114 
g688 Olle 
| €&89 26124 
| 6590 026132 
| §591 026136 
g5a5 026144 
6593 Oe6146 
6594 026154 
E595 26160 
659% O26166 
6597 O26172 
| 698 936176 
| £599 O2¢ene 
6600 O26206 
6601 Oebele 
E02 Oebelb 
6603 
6604 Oebee6 
605 
6606 Oebed2 
6607 Obes 
6608 Oe6e50 
6609 O2be56 
| 6610 Oebebe2 
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RK HEAD ALIGNMEN D 


BNE LOOP 1 
nT 
;GET CHANGED 0 ai BITS 


IC 
NOV NEHON: Me he INE [UPDATE ONL INE bi RIVE BITS tea fee 
BEG Rup gee i NO BNRt ve Just WEN ONLI 
; SERVICE THE DRIVE WHICH WAS Just SELECTED 
MOV RRHDL,A.ABNL  ;RESTORE USUAL yPPROR HANDLER ADDRESS 
oy ¥ R oer ned sete crep "BaLvE BITS 
os OO VINITIEC ie SET POrTER 
ate 148 SEE THI at ef 
NC DRIVE INCREMENT DRIVE N 
CLC :CLEAR CARRY BEFORE ROTATE 
ROL RO s SHIFT BIT POINTER 
+ BR 125 Y AGAIN 
14$:. BIC RO, R3 Trak OUT THIS BIT 
BEQ 16$ Y ONE DRIVE | SELECTED 
ERROR ryptone THA THAN ONE DRIVE stLecTep STL TANEOUSLY 
BIC HE RKCS1(R2) INHIBIT RKO& INTERRUPT 
HALT ‘HALT FOR MANUAL INTERVENTION 
PRESS *CONT’ TO PROCEED 
MOVB - ¥SUBCLR.P.CMND(RS) :SET SUBSYSTEM CLEAR C 
JSR PC. DRYCAL ;CLEAR THE SUBSYSTEM 
IMP AUTAL *RESTART AUTO ALIGNMENT 
“CONTINUE WITH SELECTED DRIVE 
{6$: CMP RI, SELECT ; SEE IF STILL ALIGNING SAME DRIVE 
IF SAME DRIVE 
;PROCEED WITH NEWLY-SELECTED DR aren 
CMP #377, SCRACH ;SEE IF THIS IS FIRST DRIVE SELECTED 
BEG IF FIRST DRIVE 
MOYB  SCRACH,P. DRVN(RS) T LAST DRIVE NUMBER 
MOVE = #ROSTAT.P.CMND(RS)’:SET READ STATUS COMMAND 
JSR PC, DRV Vea READ STATUS OF PREVIOUS DRIVE 
BIT #5: HDHM, P. poi crs} “SEE IF HEADS ARE UNL UNLOADED 
BEQ 23$ -BR IF HEADS NOT UNLOADED 
MOVB eSRTSPL P.CMND(RS) :SET START 


SPINDLE COMMAND 
>START SPINDLE ON PREVIOUS DRIVE 
238: MOVB prt, SCRACH ; STORE ED Silo NO. FOR LATER CLEANUP STRT SPL 


HOV RL SELECT sUPOATE ECTED gurive NUMB 
BIS #0 Ver® tO ENVERT VE MOoeTT 
MOVB Rl ORVSEL :GET DRIVE NUMBER INTO OUTPUT BUFFER 
TYPE DRISEL YPE “DRIVE X SELECTED" 
ISR Be CRKDRY CHEEK DRIVE FOR ROY, WRITE PROT. 
AUTAL ‘ERROR RETURN ADDRESS 
MOVB #377 UNLOD ;SET DRIVE UNLOADED INDICATOR 
MOV TRACK K22 
MOVB Gave, P-DRVN(RS)’:SET DRIVE NUMBER 
24$: TSTB SEE IF IF AUTO VERIFY 
BNE seg “SKIP UNLOAD IF VERIFY 
NOvE BUNL OAD P.CMND(RS) ; eet o UNLOAD COMMAND 


DRVCAL 3U 
MOVB #ROSTAT ,P. CMND(RS) ;SET READ STATUS COMMAND 


ener Baas - RKB1I/RKOE SUBSYS. ts 
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ll 


oeee74 
026302 


Ee 


ESEEES. 
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6663 OcbS6e 


6665 Oe6S66 
G66 026574 
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737 O40774 2s$: JSR PC, ORVCAL -READ STATUS OF DRIVE 
032765 ooce4o oo0044 eI! #5, HOHN, P P.AgicRS) -SEE IF ees ARE UNLODED YET » 
L276 000177 OCO001 32$: # MOYB  $#SUBCLR.P P.cMND(RE) :SET "SUBRYSTEN CLEAR COMMAND 
0047327 040774 JSR PC, DRYCAL ;CLEAR THE 5.5. 

000137 o25524 IMP DRVLUP :G0 BACK TO SCAN DRIVES AGAIN 
-PROCEED WITH sate Of 

113765 ooSSO0 oo0000 26$: MOVB HE. ye DRVN(RS) ;SET DRIVE NO. 

105137 011433 COMB § UNLOD’ ; COMPL EMENT UNLOAD INDICATOR 

sie BNE ous § :BR IF DRIVE SHOULD BE UNLOADED 
1 011434 STB -—s-: VERIFY i SEE IF BUTO VERIFY 
001005 BNE 33$ pSTAR rate if VERIFY 

e768 000111 ocoo0001 MOVB § &SRTSPL,P. cnn cre} ee START PINDLE COMMAND 

737 O40 JSR PT, DRVCAL START SP N THIS DRIVE 
022737 005520 33$: CMP #2; TRACK ; SEE IF “LAST K WAS 2 
001003 BNE 25 F IT WAS Nor’ z 

005520 CLR TRACK ISET RACK = 0 
po04Ge BR 20s :60 SEER K TO ALIGNMENT CYLINDER 
005237 ooss20 28s: INC RACK ‘INCREMENT TRACK NUMBER 
113765 005 poc00S 30$: # MOVB $TRACK.P.TRCK(RS) :SET TRACK NO. 

737 031770 JSR PC, ALNSEK SEEK IN INCREMENTS TO ALIGN. CYL 
104401 012653 TYPE DPOS :TYPE HEADS POSITIONED MSG 
013701 o0Ss20 MOV TRACK Rl GET CURRENT TRACK NO. 

152701 00060 BISB #0. Ri :CONVERT TO ASCII 
110137 O130ie MOVE Ri HEADNO - iGET TRACK INTO MSG BUFFER 
104401 013005 TYPE HEDSEL : TYPE “HEAD TED" 
000137 d25524 IMP ORVLUP :GO BACK TO SCAN DRIVES AGAIN 
AUTO RANDOM SEEK EXERCISE ROUTINE 

737 030776 PC, INITSS ; INITIALIZE SUBSYSTEM 

4737 027302 JSR PC’ PREPKB ; PREPARE FOR INPUT 
104401 0123176 TYPE AUTEXR 3 ASK FOR “SHORT OR LONG SEEK EXERCISES 

737 005522 1S: TST tNTCHR ;SEE IF ANY INPUT 
001775 BEQ 1$ :BR IF NO INPUT 
Oes7e? poss22 oo0022 CHP INTCHR, #022 ; SEE IF (tR) TYPED 
000137 o24214 IMP GIVEID t JUMP TO RESTART ALIGNMENT AID 
023727 OO0sS22 o00032 2s: CMP INTCHR, #032 :SEE IF -(t2) TYPED 
001002 BNE 3$ :BR IF Not (42) 

000137 025332 , IMP AUTO .:JUMP TO RESTART AUTO MODE he 
023727 O0SS22 o000123 3% CMP INTCHR,.#’S : SEE IF SHORT EXERCISES DESIRED %— ~ 
901004 — BNE 4 BR if N T SHORT 
012737 002734 o0s532 MOY #RNDSHT , SCRACH ;SET NINUTE SEEK COUNT 
000413 BR 6$ PROCEED W WITH SHORT EXERCISES 
023727 oOoSS22 900114 4S: CMP INTCHR, #*L SEE IF LONG EXERCISES DESIRED 
001004 BNE IF NOT LONG 
012737 016514 o0sS32 MOV #RNDLNG,SCRACH :SET S MINUTE SEEK COUNT 
000403 e BR 6$ : PROCEED WITH LONG EXERCISES 
004737 027322 S$: ISR PC, ECOBAD ‘ECHO BAD INPUT 
090730 R AUTEX :BR TO ASK AGAIN 
005037 oosso0 6S: CLR DRIVE “SET ORI 
“SELECT CURRENT DRIVE AND CHECK FOR NON-EXISTENT DRIVE INDICATION 
012737 027064 002036 &$: V #NEDH DHOL A.ABNL ;SET NED ABNORMAL RETURN ADDRESS 
113765 o0S500 op0000 MOVB DRIVE.P * DRYN(RS) ;SET DRIVE NUMBER 
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004737 
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000101 
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(NED = NON-EXISTENT: 
o00020 AEDHDL: BIT #N 


M10 
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00001 #SELDRV,P.CMNO(RS) ;SET SELECT DRIVE COMMAND 
005530 MOV - 8377, NEWON INITIALIZE ON-LINE INDICATOR 
-. | JSR DRVCAL s SELECT THIS DRIVE 
‘003036 MOV #ERRHDL, A. ABNL ;RESTORE ABNORMAL DRIVER RETURN BOORESS 
005530’ CMP #377 , NEWON SEE IF NED INDICATION ON THIS DRI 
BNE 18$ , TO SKIP THIS DRIVE 
:CHECK DRIVE FOR RDY, WRITE PROT TECT 
JSR PC, CHKDRV 5 CHECK ss DRIVE 
UTEX R RETURN ADDRESS FOR CHKDRV 
PROCEED “i H SEEK EXERCISES ON pe DRIVE 
re ran: a COVERT TO Acer ASC 
MOVB RL, OAR oR uk: ‘ised INTO OUTPUT BUFFER 
. TYPE UTOEX YPE OOEXERCISING DRIVE xX 
000001 MOVB pean P.CMND(RS)’ ee SEEK C 
£ MOV RACH, RO ;SEEK COUNT 
108: JSR Pe ROREPKE ; PREPARE FOR POSSIBLE KBD INPUT 
= JSR T RANDOM CYLINDER ADDRESS 
ooooo2: MOV CYLNOR, P.CYLN(RS) :SET RANDOM CYLINDER ADDRESS 
1 JSR Pc. DRVCAL :D0 A RANDOM SEEK 
y qr intr SEE IF ANY KBD INPUT 
poo022 CHP INTCHR, , #022 iSEE IF CHR) TY YYPED 
000001 MOVE $RECAL.P.CMND(RS) :SET RECAL IBRATE COMMAND 
JSR PC, DRVCAL ;RECAL BRAT TE DRIVE 
JMP GIVEI TO RESTART ALIGNMENT AID 
o00032 12%: = CMP INTCHR, #032 ‘tee IF (12) TYPED 
BNE 14$ NOT (#2 
o00001 MOVE #RECAL.P.CMND(RS) :SET RECALISRATE COMMAND 
JSR Pc, ORVCAL ;RECAL IBRATE DRIVE 
IMP AUTO : JUMP TO RESTART AUTO MODE 
14$: JSR PC, ECOBAD ECHO BAD I 
JSR PC’ PREPKB ; ENABLE KBD THPUT AGAIN 
163: DEC RO’ :DECREMENT SEEK COUNT 
BNE 10 NOT DONE WITH THIS DRIVE 
oo0c01! MOVB ERECAL P.CMND(RS) :SET RECALIBRATE COMMAND 
JSR PC. DRVCAL sRECALIBRATE D 
INC DRIVE INCREMENT DRIVE NUNBE 
oosso0 CMP #10, DRIVE i EE IF DONE WITH ALL DRIVES 
BNE R IF MORE DRIVES | 15 EXERCISE YET 
152070 BIC #8176, ISTKS :DISABLE KBD INTERR 
TYPE S$BELL RING BELL AT END OF AUTO-EXERCISES 
JMP AUTO *RESTART AUTO MODE 


; THIS IS THE ep eh RETURN FROM THE DRIVER 


N NED INDICATION IS EXPECTED (AND VALID). 
#NED,P.CS2(RS) ;SEE IF NED oN DRIVE SELECT 


:BR IF NED SE 
ERRHDL ;GO “oi I OTHER ERROR 
RO,-(SP) SAVE RO,R 
R1,-(SP) 
#1;RO ;SET BIT POINTER 
Ri ;CLEAR COUNTER 
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000032 
013365 
000022 
01337e 
000807 
013404 
o0sSee 


+ 001315 
4 
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RKO HEAD ALIGNMENT AID 

23: cHPE Ri ,ORIVE ;SEE IF Rl = CURRENT ORIVE NUMSER 
INC * RI IN CREMENT COUNTER 
ASL RO ; SHIFT BIT POINTER 
RR 23 :TRY AGAIN 

38 BIC RO, NEWON : CLEAR ONLINE BIT FOR THIS DRIVE 
MOV (SP)+,R1 :RESTORE RO,R 
MOV (SP)+'RO 
J RETNML ;TAKE NORMAL RETURN 


© LESSEE KS ALA KAAS L EAS SL EERE SALE LS KE SLA EEA ALLA RARER EE ERA RAZ LEKES 
*AETTL KBDHDL - TTY KEYBOARD INTERRUPT HANDLER 
fp RRRRRARRLE REL LEE REAR AERA SEER ELAR ERLE LARA EELR ALES ERLE ELLE LE LEE EE 


KBDHDL: MOV R1,-(SP) ;SAVE RI ON STACK 
MOV aStKB, Ri READ A CHAR FROM KBD BUFFER 
BIC #177600,R1 *MASK OUT UNUSED BITS 
CMPB3SséR1, #172 “SEE IF LOWER CASE TYPED 
BGT 20 :BR IF NOT 
CMPB sé #141 
BLT 20$ 


;BR IF _NOT 
BIC #BITS,R1 Pe IT UPPER CASE 
; SAV. pel it Aas 


20S: MOV Rl INT CHR 


CMPB =s-sWw 003, :SEE IF (¢C) TYPED 
BNE 2 BR IF NOT (#0) 
TYPE CNTRLC "ECHO (¢C) 

1S: BIC bgIT6, aSTKS ; CLEAR KED INTERRUPT ENABLE BIT 
MOV (SP)+:R RESTORE R 
RTI : RETURN 

2S: CMPB =s-«-#032, R1 SEE IF (12) TYPED 
BNE :BR IF NOT (12) 
TYPE CNTRLZ ECHO (42) 
BR : RETURN 

3S: CMPB =s«#O22,, RI :SEE IF (tR) TYPED 
BNE 4 :BR IF NOT ¢ tR) 
TYPE CNTRLR - ;ECH 0 (tR) 
BR :RET URN 

4S: CMPB  =s-« #007, RI - : SEE IF 36) TYPED 
BNE c$ Ed IF 
TYPE CNTRLG 
BR {$ 

S$: TYPE  ,INTCHR iF wn IN PUT 
TYPE 1 SORLF D0 <CR> AND <LF> 
BR 1$ : RETURN 


3 © LEKKELE SEALE SALE RE SALAH AHR ARK SAAR A ARSE RAS RAK ARERR ASAH REEL AERE 
‘AETTL PREPKB - PREPARE FOR KEYBOARD INPUT 
; xTHIS SUBROUTINE CLEARS THE KEYBOARD BUFFER AND THE 
ONE BIT. AND CLEARS THE TTY INTERRUPT INPUT WORD 
t RINTCHR tN PREPARATION FOR NEW TTY INPUT. IT ALSO 
jsenneces KBD INTERRUPT. 


ALL: 
1% JSR PC, PREPKB 


SEG 0130 


£38: 


CFV CHE ET ET ET CHV ET CY OF CHET CF ET CECT CF CF EF" CF OF 


SN 


PS rae 


Be 


EREEEEESEE 
20 NOU £ ture 


PERE 


o 
co 


MS SIIRE RES 


CY 
oo 
. 


mee eee eee 


poo re ee 


009001 


iSibe4 


OSb2e46 


005572 


003134 


. VERTF. 


Bll 


;_ PAR 5 1_27( 1006) a 
teéece - BREFARE "Poe te YBOMRD INPU 


5 SSSSPSESFRSSSSSSSSSSESESSESESASSSSESSSSESHSSSSAF SSS ASSL SSS SSS FSES 


-OCT-76 10:59 PAGE i32 SES 913: 


PREPKB: CLR STKE cle x ad ol AND DONE BIT 
CLR NTCHR Y_ INPUT see 
Sis serie, astKs ‘ENReLE "eo INTERRLPT 
RTS ; RETURN 


Th tM: wT Lar! 


S77 TTL €C ECHO. marae 
THIS SUBROU Ne H HAD BEEN 

tSTyPED IN AND WA SevERmbeD 15 Be Inve ID. F R Sone 

i#RERSON, FOLLOWED & ION MARK (7). A <CR> 
sf < 
i CALL - J PC, ECOBAD 

WITITITTTTTTTTTITITITITIT ITIL iiiliTtlilitttil, 
ae, TBE  INTCHR sECHO BAD CHARACTER 

TYP ,30ues s TYPE <”> AND <CR>, <LF> 


j PEEEESPRESESESSSSSSRALE REEL EAS SEEEEEREEESAESESERERES SSSA SEE SE ES 
: SIZMEM - SIZE MEMORY, SET 


IMITS 
;#THIS SUBROUTINE 5 ey CALLING SUBROUTINE $SIZE, AND 
:#IT USES THE i ee ber BNE 0 5 Ser HE biMiTS ON PARAMETER Ma. 


:#IT ALSO_TY TYPES “LAST PHYS MEM ADR = XXXXXXXX" (LEAD ZEROS SUPRS*D), 
; #AND SETS THE FLAG USMPRS = 1 IF 22-BIT ADDRESSES ARe USED (11770): 
+ SSEASSSSSFSSESSASSASSRESSESSSLASERASSSLAALERERASSRASSSRALSASSLAEE 
itomen: :SAVE RO-RS 
8200, $KT1! :SET MEM MGT KEY FOR $SIZE 
ISR PC, SIZE :SIZE MEMORY 
TST Skt] :SEE IF MEM MGT PRESENT 
BM! ag :BR IF MEM MGT PRESENT 
MOV LSTA MAHILM ©; SET MEN LIMIT 0 BITS 
CLR Luse :CLEAR MEM LIMIT HI BITS 
_ BR ee 260 TYPE LAST ADDRESS 
“SHIFT SAF LEFT 6, AND PUT IN RI-RO 
83: MOV $LSTBK,RO :L9 BITS 
CLR Ri HI BITS 
MOV 86, Re 'SET LOOP COUNT = 6 
128: cLc :ROTATE LOOP 
ROL RO 
ROL RI . 
DEC Fe 


i’ 
; ADD VRE poneeecPrs SHIFTED SAF TO GET PHYSICAL ADDRESS 
$LSTAD, RO ;ADD LO BITS 


J 


Abe RI HI aa 5 
MOV RO, MAHILM :SET LO BITS OF MEM LIMIT 
MOV RI .MAHILN+2 :SET HI BITS OF nen , MIT 


PE 16 :BR IF NO 1B AORESSES 
MOVB #1, UBMPRS :SET “UNIBUS MAP PRESENT” FLAG 
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| DERENC.P11 | OS-OcT-76 10:6; écdgaod - EcHC BAD TTY INPUT : . 
| 68 {TYPE “LAST PHYS MEN AOR = x00: a9" 
 €§8 gemvs0 404401 007133 les TYPE TYPE “LAST PHYS MEM AOR =” 
? 4 Siere Dossie HOV inet -(SP) ecg N STAK seer 
¢ é 
| BEE Beedeo BhU7e5 este +26 Pas it septen, | ONVER Bar 
| a cemce et pisle A | + SERLE : TYPE “oR «LF> 
bes 35520. tBeath Re CRE sRESTORE RO-RS 
6843 d27502 Ood0207 RTS PC : RETURN 
EES 
EEE 
6847 POETPRN. INPUT A GIX-DIGIT OCTAL MO ON TTY KQD 
| $848 :# GET PRM - INPUT A SIX-DIGIT OCTAL NO. KBD 
| 8845 : SENTER SUBROUTINE WITH OLD PARAMETER VALUE ON STACK. SUBROUTINE 
| BESS pts OLD vat UE, AND INPUTS NEW VALUE, RETURNING NEW VALUE ON 
| gece - SESEEEERES SESE EEE ESESEEA SEES ESSE SEER EELS ESESESERERESERESE SEE ESS 
653 O1g646 900002 AETPRN: MOV 2(SP),-(SP) ;GET OLD VALUE 
BEE ? ig 1044 TYPO : i 
l BYTE 6 :STX DIGITS 
| §856 027513 000 “BYTE OO ;SUPPRESS LEADING ZEROS 
| §857 087514 10443: 007337 TYPE NEWMSG : TYPE NEW = 
| 6858 027520 004737 032272 JSR PC ROCHRS ?READ NEW VALUE FROM KBD 
«BSS «027524 Oe7sde 7§ :(#C) RETURN 
| 6860 O27526 de755e 7§ :(¢Z) RETURN ADDRESS 
6861 027530 O27556 7§ >(¢U) OR ERROR RETURN ADDRESS 
6862 O27532 005700 TST RO :SEE IF ANY CHARS TYPED 
6863 027524 001001 4§ :BR IF YES 
6864 027536 000207 RTS PC :RETURN - OLD VALUE UNCHANGED | 
«Bees 027540 0200e7 000008 . 4$: cre RO, #6 SEE IF ore CHARS TYPED 
es, S754 Toso; | pose6e 6S: TYPE ,BUFFO tECHO BAD INPUT 
6868 Oe7ss2 104401 O01314 TYPE SQUES 
6869 027556 162716 000010 78: 810, (SP) ;FIX ERROR RETURN PC 
6870 O27562 000207 RTS :ERROR RET 
«6871 067564 O1e74_ oos2te eg: MOV #8UFFO,-(SP) :PUT POINTER TO CHARS °N STACK 
6872 027570 004737 053014 ISR PC, OCTBIN : CONVERT bIGITS TO BINRAY 
6873 027574 & &§ s ERROR RETURN ADDRESS 
+874 027576 O12600 MOV (SP)+,R0 :GET NEW BINARY VALUE 
| €875 027600 005737 os214¢ ; TST sH10ct :SEE IF HI BITS ARE O 
| €§876 027604 001360 BNE +3 :BR I 
£877 027606 O1O06E cOnote MOV RO, 2(SP) :PUT NEW VALUE ON STACK 
+6878 027612 000207 RTS PC : RETURN 
£875 
a 
b&be2 « SFSSSESSSSESSSSRALARARSSSASESSRAFAALALLRELLRELAFSEALLALFEAAFTRARELE 
S683 ‘Berth GTSWRG - OPEN SOFTWARE SHITCH REGISTER FOR MODIFICATION 
bees -¥THIS SUBROUTINE ALLOWS THE CONTENTS OF THE SOFTWARE SWITC 
SEES j #REGISTER | To oe MODIFIED BY TTY INPUT. THE SUBROUTINE TiPES 
EEE “SUR = NEW AND WAIT S FOR A NEW OCTAL VALUE 
£857 SOF UP TO OK *OIGITS To “BE TYP 
£Sce MS AE ORB Bl, | Pe ae eee 
66S 027614 o22737 ooo17e oo140 btswRc: CHP SSWREG, SWR :SEE IF SOFTWARE SWR SELECTED 
£690 Oe7b22 OO1010 BNE 6$ :BR IF NOT 


ae ee 
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meabhcoeTt ef = i8.B°° trivia ~ SPEN SOF TURAL 


SaRGERSE 
: 
* 
? 
SS) 


foforo 
nega 


0.000.000.0000 
QNooo 
oo 
Ry 


PipliAleplealialialialialial ial isl ial ialislialislislialial ial i ali Al Al ALi ALi Al Als al tala 
0 Obs b= Ob 


oan 


0277 
633e 027740 


172340 
009010 
077406 
000200 
177600 
003134 


000069 
001000 


172516 


000003 
063253 
O44476 


177740 


172516 
177S7e 


MACY13 27(1006) 05- 10:59 sy 134 
fi CH REGISTER ¥ nabiFicats: 


MOV SWREG, - (SP) ;PUT OLD VALUE ON STACK 
TYPE :TYPE “SWR = 
JSR pC CETERA :TYPE OLD ae ae SWREG VALLE 
MOV (SP )+, SHRE 3 STORE NEM VAL 

&$: RTS 


LINITMN INITIAL Tce MEMORY MANAGEMENT REGISTERS 
ae - INITIALIZE ME MENT REGISTERS 
S SUBROUTINE INI ria Izes KIPAR’S AND KIPOR’S 
PAGES, STARTING AT PiySICAL BboRESS oF 
TOP ve THe 170 PAGE. 
UNIBUS bee ERB. ED F PRESENT 
#807 ren MGT IS NOT TURNED ON IN THIS SUBROUTINE. Feue VER, 
-#MEM MGT TRAPS ARE ENABLED. 


+ SEEFLSLEAE SEAS SELES ELSLAELAS LAS LFLALALLALSLEEELFE RELA SAELESL TALE 


tKITMM: SAVREG ;SAVE RO-RS 

CLR Rl tINIT FOR PAR LOADI 

MOV #KIPARO,R2 :ADDR OF FIRST PAR 

MOV #8. ,R3 : 8 PAR’S AND @ PDR’ 
4$: MOV #77408 “40(R2) POR = 4K ‘poesia: 

MOV Re)+ LOAD A PAR 

ADD a2 200.8 + pOATE FOR NEXT 

DEC :DEC CRENENT LOOP COUN 


OUNTER 
BNE a3 ;LOOP UNTIL ALL 8 ARE LOADED 
MOV #177600, -(Re) eet UP  KiPAR? FOR 1/0 PAGE 
Br UBMPRS SEE IF 22-BIT ADDRESSES 


10$ 
MOV #60, a8SR2 ENABLE 22-BIT MODE,AND UNISUS MAP 


10$: Mov #8ITS,a8SR0 tENABLE KT11 TRAPS 
RESREG RESTO ORE RO-RS 
RTS PC : RETURN 


rr eee en ae ern re ee ae 
Ss 


t ESERVICE ROUTINE FOR MEM MGT T 
ST PSIR  NCATIER STATUS FOR PRINTOUT 


k+ERHO: JSR PSUP sat HER STATUS FOR PRINTOUT 
" MOV auSR0, SReGs T SRO 
MOV J#SR1, SREGE T SRI 


MOV a#5Re, $REG7 
MOV #83, JRERRVEC 


iBT SRe 
:SET TIME-OUT VECTOR 
MOV #PR? JSERRVEC+E 


HOV aus R3,$REGIO  ;GET SR3 
8S: CMP (SP)+, (SP)+ :CLEAN UP STACK 
MOVE  83,DF20+18 FIX PRINTOUT FOR NO SR3 
CLRB = DH?04411 
10$: ERROR lel :KT11 FAILURE 
IMP HLTPRG “ABORT !!! 


MO-LI-DZREN-C - RKELI-RKOE SUBSYS. VERIF. T2 MACY11 27(1006) OS-OCT-76 10:59 PAGE 135 SEG 0134 
DZRENC.P11  OS-OCT-76 10:07 GT ie - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION : 
£347 ; s SHEAESEAFAALESSSSLSSSL ALAS SE LALSALASFFLELSSFSAAFFSSSFLAEAS SAAT SS 
eoe2 ; #ENBCSR - ENABLE MEMORY CSR’S FOR PARITY ERRORS 
pat Se es aperemee Se Depa +97 a > peng remes oyster tare 
6 030030 gt - biecsr R1,-(SP) -SAVE R 
£951 030032 es oo0004 + Ov Jat RRVEC, (SP), FAVE SLD VECTORS 
| ee Gt ? BaobeS ooo004 1a Sat RRVEC #2, = (SP TIME-OUT vECT 
Egeg Gesece Bistar PS0 HOY SRP ARSR RY ELT MEMORY foR'S 
635 030054 ll 4$: CLR (RI) ie Tags cer 
6956 03005¢ 1i 0900001 MOV stt0, (RL) : sa a N THIS CSR 
fy fe Gee Be [Bunce agar re gee 
: +, > 
6955 650 seer al 10$: ADO 2 NT CSR ADRS 
£565 eee j Tera CMP RI; THENCSR+4O :SEE IF BONE CHECKING YET 
| $961 030076 001366 BNE 4g" :BR If NOT 
| ee 030190 oi oo000& MOV abe DeERRVEC+2’ ;RESTORE OLD VECTORS 
E 030104 012637 900004 MOV (5P}+' O8ERRVE 
£964 p25118 012601 MOV (5P)4:R1 sRESTORE RI 
6965 030112 900207 RTS C : RETURN 
£965 
| Eee 
'  §96s 5 RRRRREAERERERESESEERAALL LE EEEREA SAAS EAEE LALLA EEARESA AEE LEE ASE 
| §870 ; #SERVICE ROUTINE FOR MEM PARITY ERRORS 
' a3 ee See ae ht CURE ct teed Mee ene eae 
| £375 Baotie Fert 9004 * ov DRERRVEC (SP). SAVE OL OLD VECTORS 
: 4 
6974 030] Bi Soue MOV Lege cre,-( 
/ §9875 030126 004737 O42206 JSR GATHER STATUS FOR PRINTOUT 
| P378 030132 016637 001174 MOV on Shecs :GET PC OF ERROR 
| &6 030140 012737 030264 900004 MOV #10$,Q8ERRVEC  ;SET T.O. 
| €878 O30146 012737 000340 Od00006 MOV 8PR7, a#ERR VEC+E 
| §975 sHANDLE 11/70 NEHORY PARITY ERRO 
£989 020154 0613727 177740 001176 MOV SLOERAD,$SREGS ;LOW ERROR ADRS REG 
| §881 030162 013737 177742 001200 MOV Sah IERAD:$REG7 :HI ERROR ADRS REG 
£382 030170 013737 177744 001202 MOV DBMEMSYS.$REGIO :MEMORY SYSTEM REG 
«6983 030176 012737 063307 O64634 MOV #0H707,DF31+16. :FIX ERROR MSG FOR 11/70 
| 6984 OY 112737 000004 O€4636 MOVE #4, OF 31418. 
| €885 O30212 104122 ERROR lee ;11/70 MEM PARITY ERROR 
6386 i4 905737 001200 is! SREG7 ; SEE IF BAD MEMORY IS IN PROGRAM AREA 
| §986 Reaves 001176 O72640 CMP SREGE, eRUBUF +€000) -SEE IF BAD MEM IS IN PROG. AREA 
| = §989 30 103005 ; BHIS RIF _NOT 
| §990 030232 105737 003135 4$: TSTB 4 MEMABT :SEE IF ABORT DESIRED 
- 6981 030236 oOlo02 BNE 6$ BR IF NOT 
6992 030240 000137 o44476 JMP HL TPRG *ABURT #!! 
£993 012637 do0006 6S: MOV (Spy >. DRERRVEC+2' ;RESTORE T.0. VECTOR 
6994 030250 012637 o00004 MOV (5P)+, : sERRVEC 
6995 030254 01260) MOV (SP )+ ;RESTORE R 
6238 320256 004737 030030 3h pe eNeeSR G0 _ CLEAR AND ENABLE CSR’S 
«g8se naam “HANDLE ALL OTHER MEMORY PARITY ERRORS (NON-11/70) 
| £399 020264 O22626 fos: CMP (SP)+, (SP)+ SCLEAN LP THE STACK 
600 012737 030316 co0004 MOV #14S QaERRVEC ;SET 1.0. VECTOR 
| 7001 030274 012701 172100 MOV shen IRST CSR ADDRESS 
7002 030300 011137 Oo01200 12S: MOV Re? :CHECK FOR A MEMORY CSR 








MO-11- gREN-C - RKE11/ FeO SUBSYS. VERIF. T2 MACYLI 27(1006) OS-OCT-76 10:59 PAGE 136 S&Q 0126 
DZRENC. 0S-0CT-76 10:07 6 riuRe = OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION 
’ BPL 3 IF NO ERROR SET HERE 
SB APE coun at Aires | HEELTEOME, 
7005 1g 1Oalce ERROR lee hae PARITY fae (NON@11/70) 
i ‘ 
opps Babel? Beer 3e ws: BR CPs, sere ea ub’ s 
coos Sanaey Beale? oei48 tes: DOR encsreyo | fete re 18 POINT To NEXT ¢ = 
oa0g Basses Pests gr il = if “net 
7011 930332 o00744 BR st 
7012 
rh 
oRta SRP PREPARE MEN RT FOR RELOCATION 
one #THIS ah eee rims my PHEN ETS UP CONSTANT 
rai pea Ting CALs BND Lodo HE UNI MP REGISTERS, , 
7029 Tote ge +» prceogpmmamsenpminner 4 eee Sperm Emr rents “4 
7021 030334 104407 bREPAR REG : SAVE 
7022 030336 004737 O27E46 : $e PC. INI TMM :INIT MEM MGT REGISTERS 
ooe3 2 013700 odsEo2 MOV PMA RO aa 
46 042700 017777 BIC nee RO :MASK FOR BITS 13-15 
7025 020352 013701 OOSEéD4 MOV PMA+2,R1 :HI SITS OF MA 
cpee 920356 10003 MOV RO. Ra SAVE THESE SITS 
| 030360 b10104 MOV R1.R4 
| 70e8 030262 100 ROL RO sGET MA BITS 13-21 INTO Ri BITS 7-15 
| 7028 030364 006101 ROL R1 
+7030 030366 9006100 ROL RO 
| 7031 930370 006101 ROL Rl 
| 7032 030372 900301 SWAB.StséRK?dL 
| 7033 030374 006100 ROL RO 
oe 3 5353 x68 1° ed 003176 MOV R1, SAVPAR ; CONSTANT FOR LOADING PARS LATER 
_ 7036 O30404 105727 902134 TSTB  - UBMPRS :SEE IF UNIBUS M L 
| 7037 O30410 O0i420 BEG 9g F NOT (NO UNTBTS MAPPING) 
| 7038 ;PREPARE FOR 22-BIT ADDRESSING - “hOBO UN UNIBUS MAP REGISTERS 
7039 oO30412 012700 170200 MOV #MAPL ac, RO ;STARTING ADDR OF MAP REGISTERS 
| 7040 030416 012701 000037 MOY #31.,R1 ;SET REGISTER COUNTER 
| 7041 O30422 010320 4$: MOV R3. (RO)+ :LOAD A MAP REGISTER 
| 7042 O30424 o10420 MOV RY’ (RO)+ 
| 7043 030426 062703 020000 ADD #20000,R3 gee 4K WORDS 
7044 030432 9005504 Apc RY 
| 7045S 030434 077106 S08 R1.4$ sLOOP UNTIL 31(DEC) ARE LOADED 
7046 030436 O42765 169000 op0010 BIC #160009 P.BALO(RS) ;CLEAR BA BITS 13-17 
| 7047 146765 000003 000007 BICB P.BAHI(RS) 
«7048 «020452 104410 93: RESREG :RESTORE RO-RS 
| 7049 030454 000207 RTS PC : RETURN 
| 7050 
| 705) 
| 7082 
7053 ; ESSERE SRERSSLERE LARA ALAAS SAL ALALA LAL REAL RLAA HALA ARALAALEFAAERE 
2 : ik ENOXOE FIND STARTING ADR OF XXDP LOADER , AND STORE IT 
| 7OSE + LLEEEERRE SERS EEEELALA LAE REESE RREER ESE EEL RAEREAEARE LEER SEE EEE EES 
| 7057 O304S& 005737 o0SS74 biinxop: TST MAHILM+2 :TEST HI BITS OF UPPER MEMORY LIMIT 


70S@ O3046e 001404 BEG 6$ ;BR IF HI BITS ARE O 
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wa & 


rea pone 160000 005536 4§: a 8160000,xXDPAD ;START OF 28K IS END OF XxxOP 
ooss7e iS7776 &§: MP MAHILM, 8157776 ;SEE IF MEM LIMIT > OR = 157776 


BHIS 4 :BR IF 
l oss78 ooss36 MOV MSHILM XXDPAD HI MEM LIMIT IS END OF xxDP 
PS Cee eee Oe ee oc, ey tert THAT OF 2008 
t ) 3 ry J? 
ree feaee? Ubkote i aie it 
see 
7068 
2070 gE? SAVE TIE JOOP LOMOER IN HI EMORY 
“U71 - SAV 
07 :#THI VE R, uICH RESIDES AT THE 
a82 HUE BSED IN’ wore, fo tHe BryStear BoDRESS 
| 7074 N XDPSAV AND XDPSAV+2. A TOTAL OF Meee DEE) RORDS ARE MOVED 
14 GEDOP RESTORE THE XXDP LOADER TO ORIGINAL LOCATION 
om S SUBROUTINE MOVES THE RELOCATED LOADER FROM THE ADDRESS 
7 et ORED IN XDPSAV, XDPSAV+2, BACK TO LOCATION XXDPAD (ITS ORIGINAL 
7080 oe EELS EREELES EEE EEE EEEEE ERLE REE EEEEEE EERERELEEE EE EER EER EEERREESSE 
7081 030530 104407 VXDP: SAVREG :SAVE RO-RS 
| 7082 030532 oos004 CL 5 :SET INDICATOR TO SAVE XXxDP 
7083 030534 9004i0 es XDP 1 
| ooee a6 ipso? oogies oo" i SPP ER KNDE OVERLAID. INDICATOR 
| - 7086 44 1 $35 003125 TSTB = XDPSV. :SEE IF XXDP WAS SAVED 
| 7087 030550 d014e5 BEG XDP2 :BR IF NOT SAVED 
| 7086 O30552 012704 o00001 MOV #1,R4 :SET INDICATOR TO GET XxDP 
/ 7089 030556 005737 000170 XDP1: TST KILLDR :SEE IF OK TO OVERLAY LOADER 
| 7080 030562 901020 BNE XDP2_ :BR IF YES, TO EXIT 
| 7091 030564 12702 003000 MOY #1536. ,R2 GET SET 7b nov 1536 (DEC) WORDS 
| 7092 930570 013703 O0¢s36 MOV XXDPAD; R3 :GET ORIG ADR OF START OF XxDP 
| 7093 p30674 013700 905540 MOV XDPSAV. RO GET SAVE ADR LO BIT ¢ 
+7094 030600 013701 ooss4e MOV xDPSaVse, R1 HI BITS 
«7095 030604 005737 OSée46 TST SKT11 ‘cee IF MEM MGT PRESENT 
703 10 190417 BMI XDP3 :BR IF PRESENT 
le 005704 TST RY :SEE IF WANT TO SAVE OR GET XxDP 
| das Gaeie Si2se5 a. fo Ban le ue 
3038 Bape ds DEC Ro :SEE IF IS36(DEC) WORDS YET 
| ain banesd toeaia XDP2 BreREG “ BR TORE RO- au 
«TES Babes? agenesis i RESTOR 
7104 030630 062700 oD6000 XDP4: ADD #6000, RO :POINT TO END OF SAVE AREA 
| 7105 030634 062703 006000 ADD #6000, R3 :POINT TO END OF XXDP LOADER AREA 
| 7106 030640 014043 QS: MOV -(RO) 5 -(R3) GET AW 
| 7107 O30642 o0S302 DEC mz :SEE IF 136 (DEC) WORDS YET 
7108 020644 901375 BNE 8s BR IF NOT YET 
7108 030646 000766 oR xDP2 0 EXIT 
| ait 0 004737 027646 ieee eat ” Mee ENITMN s INIT MEM MGT REGISTERS 
otis eet 0061 RO :GET ADR BITS 13-21 INTO RI BITS 7-15 
/ 7113 030656 O06101 ROE RI 
7114 006100 ROL RO 
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000200 


172354 


003036 
003034 


000001 
pont) 


: PART 2 MACY11 27(¢1 
GTSWRG - OPEN SOFTWARE SWITC 
ROL R1 
aC 
poke RI 

MOV Rl, J8KIPARE 

MOV XDF SAV, RI 

BIC #160000, R1 

gis #140000; Ri 
168: TST RY 

BNE 18$ 

MOV (R3)+,R5 

INC SRO 

Moy RS, (R1)+ 

C aeSRO 

ae 205 
188: INC aeSRO 

MOV (R1)+,R5 

DEC SRO 

MOV S.(R3)+ 
208:  #$&BIT s8iT13,R1 

BEQ ces 

BIC 8BIT 

ADD $200. 3aK 1PAR 
22: DEC Re 

BNE 18$ 

5 XDP2 


1 
06) 
CH REG 


OS-OCT-76 10:59 PAGE 138 SES 2137 
ISTER FOR MODIFICATION 

;SET UP PARE 

:GET LO ADRS BI 


TS 
FIX UP Ri TO REFERENCE PARE 


;SEE_IF WANT TO SAVE OR GET XXxDP 
:BR IF WANT TO GET XxDP 

SAVE A WORD 

:TURN ON MEMORY MANAGEMENT 


;TURN OFF MEMORY MANAGEMENT 


; TURN ON MEMORY MANAGEMENT 
;GET A WORD 
;TURN OFF MEMORY MANAGEMENT 


; SEE iF OVERFLOW TO PAGE 7 
:BR 4 NOT 


;SET PAGE = 6 AGA 
:UPDATE PAR BY 
:SEE_IF a. WORDS YET 
:BR ae NOT YET 
:BR TO RETURN 


© LELRSSSELKL ESSERE ELE LHL EE SESE SHELA ERE SEER RERE REESE RAE EA REFER LESSEE 
“SBTTL INITSS - INITIALIZE SUBSYSTEM 


i STHIS OUTS pn THE DRIVER AND ITS PARAMETERS 


;*#AND DOES A 
;* USES - 
CALL: 


i3 


SUBSYSTEM CLEAR 
Re, RS 


PC, INITS 


JSR $s 
rerririitiriittttitittittiiistitititiititiitititstiie rir i eros S 


sMITSS, ond 


RKBA 
RPRRRO. RS 
NORTRY 


#ERRHDL A. ABNL 
fang | ast - NORM 


;SET UP ABNORMAL ERROR RETURN ADDRESS 
ADDRESS 


GET ADDRESS OF PARAMETER BLOCK 
Cle RY" FLAG 
‘CLEAR DRIVER INPUT PARAMETERS 


sS(BCR, P. CMND (RS) |; ;SET SUBSYSTEM CLEAR COMMAND 
SYSTEM CLEAR 


VC 
: DRIVE. P sDRYNCRS) 
PRIVE'P ET DRIVE NO. 
FORMAT, Pr “CSIMCRSS “SET CURRENT DRIVE FORMAT 


ime! CURRENT DRIVE NO. 
IN ALTERNATE P.8. 


«SUBROUTINE EXIT 


+ EERRRRERERE EEE ER AK EEA LEELA EAA RARER R ERE ALLE RE RRELAR EERE RARE REL 
BTL CLRPRM - CLEAR DRIVER INPUT PARAMETERS 


sa cee enn 


7174 


and 


Ce ee ed Se ed ee ed Od ee Se ed ed de dd ek ed ed 
TRC ATAL AT AT AT ALATA 
b= <0 b+ be  ( 
‘TOR Lloo 


silgelp- totectg le toto tation whee te tele te te tiinintotetain’d 
Wie UMN ete ts Ewan tate Mil ee er PNT 


S SVERMEEENS We 


“J 
ru 
a 
w 
8 BSSSSSs00san 8a 


| 

rm 

ty 

OOo 

BOG 
rey 

fT 


osnoete> 


004737 
113765 


00101 
lee? 


152737 
LO4401 





10: 


000016 


passoo 


000000 


000041 


000001 
003036 
005530 
003036 
005530 


007374 
007374 


11] 
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CLRPRM - CLEAR DRIVER INPUT PARAMETERS 


;#THIS SUBROUTINE ZEROS THE FIRST 14 BYTES IN THE ORIVER 
;#PARAMETER BLOCK (WHOSE poor aBR IS IN RS). 


i* CALL 
v econdunuecenoonrsseessashsrneeseannseseneesnssssecusonsesessess 
> art MOV RO,-(SP) ; SAVE RO 
MOV RS; -(SP) : SAVE RS 
MOV RS, RO GET PARAMETER BLOCK ADDRESS 
ROD #P'CS1,RS COMPLE LIMIT ADDRESS 
13: CL (RO)+ :CLEAR A WORD IN PARAMETER BLOCK 
CMP RO,RS -SEE IF DONE YET 
BNE _ & . BR IF NOT DONE YET 
HOV 2p} 3° Re Reet poe R 
RTS PC : RETURN 


Tagg epg pt 
f VYe- 

sad : Pee Scans Tie ai ettED Barve TO INSURE 

se THE DRIVE ge 6 Rinne te aay LOCKED, 

;#0F THESE CONDITIONS ARE NOT MET, AN ais _ 


: ME NTERRUPT IS DISABLE 
#0 RETURN IS MADE TO THE ADDRESS LISTED TRReDEATELY 
#AFTER THE CALL TO SCNDRV. THE REQUESTED DRIVE 
jaiuer -PRSSED TO. THe SUBROUTINE IN. IN WORD “DRI we 

0 NNING F RS 200 AND RKO& IS LOAD MEDIUM, 
DRIVE a MIL BE REJECTED FOR USE. 


* CALL - J5R SCNORY 
iy RROR RETUBAR RESS> 
rrririiittirtiittitititittiiititiiititititiiiiliiiroccrs tlc o so 


SCNORV: JSR PC, INITSS s INITIALIZE DRIVER AND CLEAR SUBSYSTEM 
VB DRIVE. P.DRVN(RS)’:GET DRIVE NUMBER 

:SEE IF DRIVE 0 re XXOP LOAD MEDI(M 

BNE 33 ;BR_IF NOT DRIVE 0 

CMPB 0 s#13, 0841 ; SEE IF RKOE IS XXDP MEDIUM 


ai Be 
iste HOFLAG SEE IF G0 START 
TYPE ROXDP TYP “DRIVE 0 IS LOAD MEDIUM” 
BR TORE ERROM Eri 
3S: MOVB = SRDSTAT,P. CMND(RS) SET READ DRIVE STATUS COMMAND 
MOV BNEDHOL @. ABNL ihr NED ABNORMAL RETURN ADDRESS 
MOV NEWON ON-LINE INDICATOR 
Pit DRIVE STATUS 


JSR Re. * VCAL 
;SEE IF THIS DRIVE’ etoTs AND 1s’ ON- ed 
, MOV #ERRHDL,A.ABNL ;RESTORE ABNL RETURN ADDRESS 


CMP #377, NELION :SEE IF NED INDICATION ON THIS DRIVE 
BEG ; :BR IF NED NOT SET 

MOVB IVE BADORY +6 GET DRIVE NO. INTO BUF 

BISB BADDRV+6 CONVERT TO ASCII 

TYPE BRbR An :TYPE "DRIVE x" 


SEG 0136 
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DZRENC.P11 OS-OCT-76 10:07 s¢ ORY - SCAN DRIVE FOR STATUS 
ree? o31242 104401 007377 YPE s TYPE “NON-EXISTENT” 
72 SERVICE” ERRORS apaen 
7229 03124 o4e762 000100 ooo000 2s: BIC SIE,RKCS1(R2)  ;DISABLE RKO& INTERRUPT 
3e30 031254 017616 900000 Mov 38h). (SP) :SET UP ERROR RETURN ADDRESS 
1 031260 O002 RTS PC ERROR RETURN 
7232 :SEE IF DRIVE IS READY 
7233 031262 032765 oo00200 onco4O 4s: BIT 8S.DRY,P.AOO(RS) :TEST FOR DRIVE READY 
7e34 031270 001013 SNE x3 BR TF F DRIVE IS READ 
7235 o31e7e 113737 oossoo 907374 nove DRIVE , 88D BADORY +6 : GET T DRIVE NO. INTO Sur 
5538 B3130° th BROSEP 9i38 BaBa00 CONVERT “DRIVE x" 
e535 Dsiaie- Aoorey Comte BRS TReDY Bh Bc 
5533 -SEE IF Brrve IS WRITE ENABLED 
7241 031320 032765 04000 oodo4o é6: BIT #S.WRL,P.AOO(RS) ;SEE IF WRITE LOCK SET 
7242 031326 001413 BEQ 8$ BR IF WRITE LOCK NOT SET 
7243 031330 112737 905500 007374 MOVB  DRIVE,BADDRV+6 :GET DRIVE NO. 
7244 031336 152737 000080 007374 BISB  #'0,BADDRV+6 ; CONVERT To ASCII 
031344 104401 007366 TYPE  , BADDRV ;TYPE “DRIVE i 
7, 031350 10440] 907432 TYPE ‘WRTLOK ; TYPE "WRITE-LOCKED 
7247 031354 000734 i" $ ERROR EXIT 
7248 -SEE IF IVE NOT LOADED WITH ar tcnmeN? T CARTRIDGE 
7248 O3135& 112765 000103 oo0001 &$: #PACK.P.CMND(RS) ;SET PACK ACKNOWLEDGE COMMAND 
7250 031364 004737 040774 eRe -SET VOLUME vaLID 
7251 031370 112765 000121 990001 MOVB § #RDDATA,P.CMND(R cre) :SET READ COMMAND 
7252 031376 O12765 o00632 O00002 MOV SLSTCYL; P. CYLN(RS) 3SET CYLINDER. = 632(8) 
7253 031404 112765 000002 oo0005 MOVE - BLSTTRK’P.TRCK(RS) :SET TRACK 
7254 O2141e O12765 O&4640 000010 MOV #RWBUF.P.BALO(RS) :BUS ADDRESS 
7255 031420 012765 177774 o000le MOV #-4.P.HIC(RS) ;READ 4 WORDS 
7e58 0321426 105065 600007 CLRB P.CSLH(RS) ;SET 23- SECTOR FORM 
7257 031432 004737 040774 ISR DRVCAL *READ 4 WO RDS OF 0 "sector FILE 
7258 031436 932737 100000 oos474 BIT REAYDER RECODE :SEE IF DATA ERRO 
7258 031444 O01402 BEQ 10$ B 
7260 O31446 104401 012314 TYPE BADE32 OE READ ERROR MESSAGE 
7261 O314S2 022737 177777 O64646 10S: CMP 177777, RWBUF+6 :SEE IF ALL 1’ 5 IN 1.0. WORD 3 
7262 031460 001013 BNE 123 iBR IF NOT ALL 1°S 
7263 031462 113737 oOssO0 007374 MOVE ORI ve BADDRV+5 R 
7264 031470 162737 o00060 907374 BISB  #°0,BADDRV+6 CONVERT TO ASCII 
7e65 031476 104401 007366 TYPE —, BADDRV ;TYPE “DRIVE X" - 
7266 O31502 104401 007451 TYPE ALNPAK ‘TYPE “LOADED WITH ALIGN PACK 
7267 031506 000657 BR 3 :TAKE ERROR EXIT 
7268 “ERROR FREE RETURN 
7263 031510 112765 000113 ooc0o! {2$: # MOVB  #RECAL.P.CMND(RS) ;SET RECALIBRATE COMMAND 
7270 931516 609737 940774 JSR PC, ORY veal sRECAL IB RATE THIS DRIVE 
7271 O31522 O62716 Oof00e ADD #2; (SP) X UP RETURN PC 
ere 021526 000207 , RTS PC ‘RETURN 
rhe 
7276 Tl aN CRE SIT Oe 
7277 ‘BTTL CHKDRV - CHECK STATUS OF DRIVE 
7278 ;#THIS SGORCUTINE CHECKS THE DESIRED DRIVE TO DETERMINE 
72793 *IF THE DRIVE IS ON-LINE, READY WRITE PROTECTED. IF NOT, THE 
7280 t SAPPROPRIGIE ERROR MESSAGE IS TYPED,AND THE CPU HALTS 
7261 “WHILE MANUAL IN OR ERNERTION. Fakes PLACE TO CORRECT THE 


7282 :*PROBLEM. THE OPERATOR THEN DEPRESSES "CONT’ TO PROCEED, 


a rs 


MO-11-DZREN-C - es 2 Me ZRKOG SUBSYS. 


OZRENC P11 0S-0CT 


rururuGs 
~“) 
a 
uw 


112765 
004737 
112765 
004737 


& 10:07 


011665 
000100 


004000 


005500 
000060 
Olel7e 
012160 


000113 
040774 


po0000 


000040 


o00c0s 


000091 


000040 


000001 
000001 
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HOR - CHECK STATUS OF DRIVE 


#AND A RETURN IS MADE TO THE ADDRESS LISTED IMMEDIATELY 
S86 TER THE ae IF THERE ARE NO PROBLEMS WITH THIS 
;*DRIVE, A NORM ETURN IS MADE. 
:#RS MUST CONTAIN THE RODREES OF THE PARAMETER BLOCK, 
:*AND RE MUST CONTAIN THE RKOG REGISTER BASE ADDRESS: 


:* CALL: 
;* JSR PC, CHKDRV 


7s ERROR 
Etrirrretretrretrittrritiitiittititititiiitiiitiiiiitiiicriises. 


CHKDRV: MOVB - ORIVE.P.ORVN(RS) ;SET DESIRED DRIVE NUMBER 
MOVB | BRDSTAT,P.CHNDORS) 5 “SET READ DRIVE STATUS COMMAND 

MOV WNEDHOL | 8 ABNL “Tget Rep ABNORMAL RETURN aboRESS 

MOV NEWON eo fat ON-LINE INDICATOR 


__ JSR PC, DRVCAL DRIVE STATUS 
;SEE IF THIS DRIVE’ EXISTS AND IS’ on-L 
MOV #€ NL TORE ABNORMAL DRIVER RETURN ADDRESS 
CMP 8377, NEON Fr IF nigD, INDICATION ON THIS DRIVE 
BEQ 
MOVB DRIVE Ri IVE NUMBE 
BIS8 #0, Ri CONVERT TO ASCII 
MOVB = RIL BRYNED !PUT DRIVE NO. INTO MSG BUFFER 
TYPE NONEXD : TYPE NON-EXISTENT DRIVE MESSAGE 
BR 35 :SERVICE THE ERROR 
-SEE IF DESIRED DRIVE IS READY 
is: BIT is. DRY,P.AOO(RS) ; TEST FOR DRIVE READY 
BNE ;BR IF DRIVe READY 
MOVB DRIVE Rl :GET DRIVE NUMBER 
BISB O.Ri :CONVERT TO ASCII 
nove 1, DRNRDY ;PUT DRIVE NUMBER IN MESSAGE BUFFER 
YPE note :TYPE DRIVE NOT READY MESSAGE 
“SERVICE ALL ERRORS HE 
33: BIC #IE, Be CeI (RE) ;CLEAR RKO& INTERRUPT ENABLE BIT 
HALT "HALT IS NECESSARY DURING MANUAL 
: INTERVENTIONS, TO CHAN : 
LOCK, START DRIV' yETC 
‘PRESS "CONT’ TO PROCEED 
MOVB §_#SUBCLR,P.CMND(RS) ;SET SUBSYSTEM CLEAR COMMAND 
ISR PC. DRYC ;CLEAR THE SUBSYSTEM 
MOV a(SP), (SP) :SET UP ERROR RETURN ADDRESS 
RTS ‘ERROR RETURN 
-SEE IF DRIVE IS WRTTE-LOCKED 
4g: BIT #S.WRL,P.AOO(RS) ;SEE IF WRITE LOCK SET 
BNE c§ :BR IF WRITE-PROTECTED 
MOVB DRIVE Ri :GET DRIVE NUMBER 
BI ‘CONVERT TO ASCII 
MOVB Rl NOORLK ur DRIVE NUMBER IN MSG BUFFER 


- TYPE NOTLOK TYPE eerie NOT WRITE-LOCKED™ 


- RECALIBRATE DESIRED DRIVE SET Sat One VALID 
és: MOVE | BRECAL.P.CMND(RS) SET RECALIBRATE COMMAND 
JSR Sav :RECALIBRATE DRIVE 


B 
MOVB § #PACK,P.CMND(RS) :SET PACK ACKNOWLEDGE COMMAND 
ISR Be oRYCAL ;B0 PACK ACK. (SETS VOLUME VALID) 
;RETURN HERE 


SEG 0140 


Pil 05-OCT-76 

7339 031762 O62716 
7340 031766 000207 
7341 

7342 
7343 

f 
7345 
734% 
7347 =931770 iiEree 
7348 031776 005065 
7349 032002 004737 
7350 032006 005265 
7351 O3e0le Oee7t5 
7352 O32 001370 
7353 O3e0e2e 000207 
7354 
2355 

3$6 
7357 
7358 
7359 
7360 
7361 O32e0e4 112765 
7362 032032 004737 
7363 032036 112765 
7364 O3e044 004737 
7365 932050 032765 
7366 032056 001772 
7367 O3e 104401 
7368 032064 004737 
7389 032070 005737 
7370 032074 9001775 
7371 032076 022737 
7372 032104 001403 
7373 0321068 9004737 
7374 O3elle 07 
7375 032114 112765 
7276 Q3ele2 004737 
7377 O3e21 0207 
7378 
7379 
7380 
7381 
7382 
7383 
7384 
7285 
7386 032130 011637 
7387 032134 012706 
7388 022140 037 
7383 032144 105037 
7290 032150 012705 
7391 032154 112765 
7392 O3el 4737 
73393 Q32166 012737 
7394 032174 0207 


000002 


000117 
tele 
040774 


000002 
000366 


C00lee 
027322 


000111 
040774 


001076 
001076 
74 


04 
oc0000 


000001 


oocode 


o00c01 


000001 


ooo044 


005S2e 


00000! 


000001 
177776 
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HKDRV - CHECK STATUS OF 


7$: ADD #2, (SP) ;FIX UP RETURN ADDRESS ON STACK 
RTS PC 


;ERROR-FREE RETURN 


j ERLERRRE RRA RAE ERE RAR EARLE LAL EAA LA ARAL ELE LR LEAR AL EL ALAR ERLE EE 


+3 


Perseceemeererriettrrrriririrereir ier rertrir ie errrsti tet er ars 


APNSEK: MOVE &SEEK.P.CMND(RS) .SET SEEK COMMAND 
CLR P.CYLAC(RS) ;tNIT CYL TOO 
2g: JSR PC, DRYCAL s SEEK TO THIS CYL 
INC P.CYLN(RS) -INCR CYL NO. : 
CMP aBLNCYL+T,P.CYLNS) -SEE IF 365 REACHED YET 


BNE 2 :BR IF NOT YET 
RTS PC : RETURN 


$ © LESKKSEEKEEL EES EL HAS ASSEE ESE S ARASH EAR ALLS E RASS ALAA ZAHA E ELA RAAT SE 
# WAITYR - THIS SUBROUTINE UNLOADS HEADS ON THE CURRENT DRIVE, tpEs 
:% "TYPE <R> WHEN READY", AND THEN LOADS THE HEADS WHEN <R> IS’ TYPED. 
Aah BR BB A 
WATTSR: MOVE BUNLOAD,P..CHND(RS) SET UNLOAD COMMEND 
JSR VC “UNLOAD HEADS ON THIS DRIVE 
MOVB arOSTAT,P .CMND(RS) :SET READ STATUS COMMAND 


1S: ISR ROBRV CAL "READ STATUS OF DRIVE 
BIT nee HDHM , P. eo1crs} :SEE IF HEADS UNLOADED YET 
BEQ 1$ :BR IF NOT YET 

2s: TYPE RWNRDY :TYPE “TYPE <R> WHEN READY™ 
JSR PC, PREPKB :PREPARE FOR KBD INPUT 

4S: TST INTCHR :SEE IF ANY INPUT YET. 
BEQ 4s :BR IF NOT YET 
CMP #’R, INTCHR : SEE iF <R> TYPED 
BEQ 6$ :BR IF <R> TYPED 
ISR PC, ECOBAD ECHO BAD INPUT 
BR -GO ASK AGAIN 

&$: MOVB  &SRTSPL.P.CMND(RS) ;SET START SPINDLE COMMAND 
SR PC, ORVCAL 37 TART T SPINOLE AND LOAD HEADS 


: es ata hai a ee 
ESETTUP - SET UP FOR LOOP ON ERR 
:*THIS sSUBROUTINE CANNOT BE Car tED "By. ANY OTHER 
; #SU UBROUTINE --- ONLY MAIN-LINE CODE ! 

we ate a Riser a SP a on Be Fh I ai Se 1? 
dt TTUP. HOV (SP) pas Take :MOVE RETURN PC ON STACK 


TACK-2 K-2 :RE-INIT THE STACK POINTER 
CLR :CLEAR ERROR RECOVERY FLAGS 
CLRB ERENT CLEAR RETRY ERROR C 
MOV SET PARAM BLK ADRS 
MOVB SSUBCLAP .CMND(RS) :SET SUBSYSTEM CLEAR CMND 
JSR PC, ORV eA ;CLEAR THE SUBSYSTEM 


MOV sPRO, aePs ?RE-ESTABLISH PRIORITY O 
R : RETURN 


% ALNSEK - SEEK IN SINGLE INCREMENTS FROM CYL O TO ALIGNMENT CYL (365 OCT). 


SEG 0141 
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112737 O00i44 001115 
105737 003126 


le 001006 
le bast? 105737 003106 
7414 bassee els 001326 
7416 O3ee30 Qle737 000001 
000419 
113701 001102 
00530 


001304 


74 006301 
7421 O3ee50 etree OOS61é 001304 
ooco004 900002 
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HKORV - CHECK STATUS OF DRIVE 


« LLEEERALE LEAL LAR AA LAE SLA LALA ALLL LE LEELA ERE LELE RAL EL LALLE RARE EEE 


NUM 
HE ITERA OR THE CURRENT 
:xTEST NTO STIMES BND CHECKS IT TO OO EEHINE IF THIS TEST 
: *SHOUL f ITERATION NO. = 0, THE SUBROUTINE RETURNS 
i470 THe STORED PC ANS Re TEST WILL BE SKIPPED). IF IT IS 
0, THE RETURN IS MADE T A 


TEST WILL 
‘SE RUN. HOWEVER, ON THE FIRST bree (QUICK VERIFY) OF A RUN 
:#WHICH STARTED : ADRS 200, ALL TESTS WILL BE RUN ONCE. 


CHKITR: MOV -(SP) ;SAVE R1 
MOVB 8166, SERMAX § :SET MAX ERROR CNT TO 100 FOR SSCOPE 
re acs ie IF DUAL-ACCESS FLAG SET 
. St oo ;SEE IF “200 START 
TST $PASS SEE IF oTRST Pass 
BNE ug :BR IF NOT 
38: MOV #1, $TIMES ‘SET UP FOR 1 ITERATION 
BR 1$ :GO RUN DUAL-ACCESS TEST 
ug: MOVB § $TSTNM,R1 :GET CURREN NT TEST NUMBER 
DEC Ri : DECREMENT BY 
ASL RI “DOUBLE IT to" GET TEST LIST INDEX 
MOV TSTLST(R1),STIMES ; LOAD TTERATIO N NUMBER 
BEQ 25 -BR IF TEST SHOULD BE SKIPPED 
18: ADD #4, 2(SP) !ADJUST RETURN PC TO RUN THIS TEST 
2$: MOV (SP)+,R1 :RESTORE Ril 
RTS PC * RETURN 


ss EEELLLAKE RE K ELA ALLA E RRA RHA LALA AEE ARE RELA LEEE RRLERE KELLER ELEEEE 
NPUT CHARS 


IGHTY INPUT 
ee PLACES 


ED BY 
:*RUB-OUT AND (fu) FEATURES ARE PROV 
EIDMEDIATELY FOLLOWING THE SUBROUTINE BALL THREE SPECIAL 
*RETURN ADDRESSES MUST BE LISTED: THE FIR men ETURN 26 

D INPUT IS TYPED. 
ieroR, MODIFICATION, IF SELECTED, AND THEN THE (tG) RETURN 
j THE NUMBER OF INPUT CHARACTERS IN THE BUFFER IS RETURNED 
CALL - JSR C, RDCHRS 

TR TROL RE TURN ADDRESS> 

<CONTROL-Z RETURN ADDRESS> 
<CONTROL-U 0 OR ERROR RETURN ADDRESS> 


RETURN 
hs ialahahahahalalebahalainiaisiaiiaaiehviaiaiaiaialaiaiaiaiaiaisinisinisinisinisinieisinisinininisisisiaisinisinisia 


me 2 ee CO iC Oe CC 


; 
i 
; 
; 
; 
' 
; 
Q 


SEG C142 


N11 
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DZRENC.P11 OS-OCT-76 10:07 RDCHRS - READ A STRING OF KBD INPUT CHARS 
rae 03227 RDCHRS: 
7453 O3ec7e O1D146 MOV R1,-(SP) :SAVE R1 
7454 032274 010246 MOV R2.-(SP) :SAVE Re 
7455 505500 CLR RO INITIALIZE CHARACTER COUNT 
7456 061 CLR Ri ‘INITIALIZE RUB-OUT INDICATOR 
“READ A CHARACTER 
7458 032302 104406 2g: RDCHR :READ A CHARACTER 
7453 032304 112602 MOVE —- (SP)+,R2 :GET CHARACTER INTO Re 
7460 sCHECK FOR (tC) 
7461 032306 122702 900003 CMPB ss: #003, Re SEE IF (10) TYPED 
74b2 O3e31l2 O01006 - BNE 4g :BR IF NOT (tC) 
7463 Ose314 104401 013360 TYPE CNTRLC ECHO (tC) 
7464 032320 017666 O90004 oco0004 3s: MOV 34(SP),4(SP)  :PUT RETURN ADDRESS ON STACK 
7465 O32326 000523 BR Dug BR TO TAKE EXIT 
oe “CHECK FOR (12) 
7467 032330 122702 900032 4g: CMPB Ss #032, R2 SEE IF (12) TYPED 
7468 032334 OO1006 BNE 6$ BR IF NOT (42) ‘ 
7463 032336 104401 013365 TYPE CNTRLZ ECHO (2) 
70 O3es42 062766 O00002 op0004 ADD be, 4(SP) MAKE OL5 PC POINT TO NEXT RETURN ADR. 
7471 032350 000763 BR :BR TO TAKE (42) EXIT 
7475 -CHECK FOR (tU) 
022352 122702 oo00e5 b$: CMPB ss #025, R2 :SEE IF (tu) TYPED 
7474 O32256 O01006 BNE 8 Es 1 NOT ( “ 
7475 032360 104401 013377 TYPE CNTRLU Ct) e 
7476 O3e264 062766 O00004 oo0004 7S: ADD 4 4(SP) ‘Fake OLD PC POINT TO NEXT RETURN ADDR. 4- 
7477 O3e372 O007S2 BR 3$ :BR TO TAKE (tU) EXIT ; 
eas 032374 122702 00007 Bete Fore” 9007,Re “SEE IF (+G) TYPED 
7480 400 aye BNE 9g :BR IF NOT (1G) 
a 2 eat sburar ett Tore pe arsHG zB CHO cee ware SWITCH REG. FOR CHANGE 
74 Ree BBAoeG BR TAKE (tU) RETURN 
7484 “CHECK FOR RUB- ~olt (DELETE) 
7485 032414 122702 000177 8s: CMPB. s- #177,Re ;SEE IF RUB-OUT (DEL) TYPED 
7486 032420 001020 BNE 145 :BR IF NOT RUB-OUT 
7487 O3e422 O05700 TST RO SCHECK THE CHARACTER COUNT 
74B8 032424 001726 BEG 2g :BR IF COUNT = 
7489 O22426 005701 TST RI CHECK THE RUB-OUT INDICATOR 
7490 032430 901003 BNE 115 !BR IF WE HAD A PREVIOUS RUB-OUT 
7431 032432 005201 INC ;SET_RUB-OUT INDICATOR 
7492 030434 105401 013415 TYPE BKSLSH ‘TYPE A BACK-SLASH ( 
7483 032440 005037 O05532. —C 11$: CLR SCRACH USE SCRATCH WORD FOR TEMP. BUFFER 
7494 032444 005300 DEC RO :DECREMENT COUNT 
7495S O32446 116037 ODSe62 oDss3e MOVB § BUFFO(RO),SCRACH’:GET LAST CHAR. INTO BUFFER 
7496 O32454 104401 O05532 TYPE SCRACH sECHO CHARACTER TO BE DELETED 
7497 0322460 000710 BR FI GO READ ANOTHER CHARACTER 
7498 O2e462 005701 i4$: TST RI - ICHECK THE RUB-OUT INDICATOR 
7499 0320464 001403 BEQ 16S !BR IF INDICATOR IS NOT SET 
7500 O22466 104401 O13415 TYPE BKSLSH : TYPE A BACK-SLASH 
7501 O3c472 O05001 CLR Ri !CLEAR THE RUB-OUT INDICATOR 
Fens O32474 22702 DODDIS ee Te eke SEE IF <gR? TYPED 
7504 O32500 OO14e6 9g tF <é 
7505 sHANDLE POSSIBLE DIGIT 
7506 032502 005037 ooss3e CLR SCRACH a SCRATCH WORD FOR TEMP. BUFFER 


homes ta 2 a Y AA lhe EERE EERO ee EO I EE NENG es Sack °° AE eet gr RRS eo 
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DERENC. FLL c Bs goin — Beac a Staind SF FES ineu? Coens 
TSO? C3250 110237 O09 $33 MOVE 2, ScRACH - GET THIS CHARACTER INT2 BUFFES 
7508 032512 104401 055 TYP sECHO THE CHARACTER TYPED 
| 7508 O3251€ ilozed d0Szte2 MOV tz, BUFF OC RO) ; MeRACTER INTO BUFFER 
2330 I INC MENT CHARACT ER COUNTER ‘ 
7511 Oeerp0 900120 ¢ SSO. ,RO :SEE IF TOO MANY seeRaCTERE TYPED 
7348 032530 001264 BNE 2$ :BR IF NCT TOO MANY 
73: 032532 10440 901315 TYP pee -TYPE <CR> AND <LF> 
7514 112760 000000 ooS26e2 MOV BUFFO(RO) ;PUT TERMINATING NULL INTO BUFFER 
Cais Saeb43 LoS4oL Dosete Tee Suee ECHO INPUT STRING 
sl] ! q?> <0 
75 BaSees ebares ne a 43 7 TAKE ERROR Exit” FROM ROCHRS 
aEtk iP33eh RELSA5 oos2b2 _ iB BLFFO(RO) tot Te ERNIAGPING NULL INTO SUFFER 
| 7520 932570 M276 O00006 c00004 (SP) SETX UP RETURN ADDRESS 
| 7521 $25 1 248: = MOV Tis Re i RESTORE Re 
cece se 12603 Moy SP )+, RI :RES! ORE _R 
67 Rvs eC SE eRSUTINE EXIT 
see 
7S2E 
| cess i SSReESESSEELARAEREHEEAESERER RSET ATED ELT ALES TATA E AE TAHA AEETTS 
a *SaTTL TYPTST - TYPE CURRENT TEST ye. ITERATION NUMBER 
7E2¢ :#THIS SUBROUTINE TYPES : WITH NO <CR> 
ee MC ee RUMBER OF 1 THE CURRENT F TEST AND 
1 * is 7 NUMBE ITERATIONS FOR THAT TEST. 
a :#R1 MUST CONTAIN THE INDEX INTO THE TEST LIST FOR 
cea :#THE CURRENT TEST. 
i CALL JSR PC, TYPTST 
ee droretrer rire ir eer ieerierieeg 
| 6 O4401 O13426 TYPTST: TYPE sPAC TYPE A SPACE 
| oE3e Ba5ees ao are MOV Al. -(SP) IBUT INDEX ONTO STACK 
| 7539 O32612 O0t216 asR (SP) sDIV /IDE BY 
——«-PE4O p3eei8 o3sei6 INC (SP) : INCREMENT TO GET TEST NO. 
7541 ie 1044 TYPOS : TYPE TEST NO. IN OCTAL 
7542 032620 09¢ BYTE 2 :TYPE 2 DI GI is 
7543 03262) "BYTE ; SUPPRESS ING ZEROS 
| 7544 32622 10440] 01342) T PACES : TYPE & SPACE 
ot ozebet C1614 OOSE1E MOV terre eRL), -(SP)'.PUT CURRENT ITERATION NO. ONTO STACK 
SHE O32632¢ [04402 TYPOS ; TYPE ITER aTION NO. IN OCTAL 
| ia tee ane i Uppeecl thai zene 
743 032636 0020 RTS PC : RETURN 
7551 
7552 rn fveeae s Fae Gaenir Peat ee eee 
| 7353 TTL TYPPRM - TYPE CURRENT PARAMETER 
7554 :# MIs SUBROUTINE TYPES THE LINE : IK TYVYYYY 
7EE5 ; #WHERE XX 1s TH THE CURRENT PARAMETER MNEMO atin 
7ESE sevYYYYYYY TS ITS VALUE IN OC TAL DIGITS, nate, LEADING 
7557 #ZEROS SUPPRESSED. NOTE: <CR> AND < T DONE. 
75Ee :#0N ENTRY Rl NUS CONTAIN THE IN x INT ane tie 
7559 i #PRRANE TE TER T FOR THE CURRENT PARAMETER. 
7EE0 # CALL neve ~ PC, TYPPRM 
| pers PP erePeereT Tree ere ee Tee TTP ETT TTETT TET TT TTTeTTT CT TTT TTT eT TTT! 
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Sa5oq Aterse 
032744 04402 
033746 006 
: 032747 001 
| 032752 00207 
| ED} 
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| 7e08 
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 - 7808 
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Ba." 
7E11 
| 7ele 
7613 
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| 7e1S 
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TYPPRM - TYPE CURRENT PARAMETER 


TYPFRM: ee PRMNEM(R1) , PRMBUF ey". MNEMONIC INTO OUTPUT SUFFER 


-TYPE “Xx=" 
MOV PRRLETCRL), Lowoct :PUT LOW ers OF PARAM. INTO LOWOCT 
CLR HIGOCT :CLEAR HIGH BINARY BITS 
<P 8°MA,PRMNEM(R1) :SEE IF PARAMETER IS (MA) 
BNE T (MA) 
MOV ST+2(Ri) HIGHCT :PUT HI BITS OF PARAM. INTO 

is: V OWOCT. -(SP3 T’ NARY V 


MO aL 
ISR PC 880820 :CONVERT BINARY TO OC 
38 Pr, SaSSUPRS ; TYPE 


posposepesccseneqeassquesres eae te ati ae 
YPPAT - TYPE aa ane OF DATA PATTERN 1S 


sath z SUBROLTY ine = YYYYYY, 
eh ee re 
TTERN 15, ae wy iS T seit 0. 


aie Tt 4: pas Rust conFanN NOT 
;#0N ENTRY RIN ae AROE OF THE SURREN 
:#WORD IN tue’ PATTERN TABLE. al 
} al sage med oa net ies Seta 


TYPPAT: 


my htop . 

/ -( ) 

asR ey chide 8 A CoRO NO. 
TYPOS HOR. NIFGER 

BYTE 2 eo ort e = & FOR YPOC 
“BYTE ! TELL TYPOS. TO TYPE LEADING ZEROS 
YPE EQUALS TYPE ” 

MOV PATIS(RI).-(SP) : GET BINARY VALUE OF THIS WORD 
TYPOS :TYPE VALUE IN OCTAL 

.BYTE 6 s TYE & DIGITS 

‘BYTE 1 : TYPE LEADING ZEROS 

RTS PC : RETURN 


© FSSSEESSSSSFSSEESASSASASSSLALSERAFSRALSASSSRELALAFARALAAAAFAALLARATE 
‘AOTTL MODPIS - MODIFY USER-DEFINED PATTERN 15 
:#THIS SUBROUTINE DETERMINES WHETHER OR NOT USER-DEFINED 
:#DATA PATTERN 15 SHOULD BE OPENED FOR MODIFICATION BND 


2 #L j S INTO h 
:#IF THE OPERATOR ANSWERS THE REQUEST FOR A PATTERN WORD 
t#WITH EXCLAMATION POINT (!) (CR), THE SUBROUTINE 
#PROPAGATES THE LAST WORD TYPED INTO ALL REMAINING 
; #HORDS OF THe PATTERN is TABLE. 
: of  specsunsnsubenusccnvechonesstecauscusccsuenancenasenssessasees 


MODF 1S: 


ite 
wer 
414 
BS 


CTAL MSC! 
YYYYYYYY, SUPPRESSING LEADING 


ar 
Wr 
cK 
me 
~ 
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atatatatalat 
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BEBEREEESE EEE BBCEEE 
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MODP 1 ie - MODIFY TEER REFINES PATTERN 15 
ee 
j st 
ney Rey (3P) BOVE Be 
:SEE IF PARAMETER iid 
PRMNEM(RL) ;SEE IF CURRENT PARAMETER IS (PT) 
NE :BR IF NOT { 
:SEE IF PATTERN | H 15.8 PECIFIED 
SIT ;SEE IF PATTERN 15 SPECIFIED 
BEG :BR IF NOT SPECIFIED 
-SEE IF PATTERN i SHOULD BE MOOLFIE! 
4g: TYPE MOFY1S ;ASK WHETHER PATTERN 15 SHOULD BSE MODIFIED 
SR bc, ROCHRS : RE 
Ft 3 :(1C) RETURN ADORESS 
2¢3 (2) RETURN ADDRESS 
23 :(¢U) OR ERROR RETURN ADDRESS 
TST RO :SEE IF NULL INPUT 
BEQ 223 :BR IF MODIFICATION NOT REQUESTED 
CMP #°M, BUFFO :SEE IF (M) Type 
BEQ :BR IF MODIFICATION REQUESTED 
TYPE  ,BUFFO :ECHO BAD INPUT 
TYPE ‘'$QUES 
58 43 :GO ASK AGAIN 
*MODIFY PATTERN 15 
és: TYPE SELPIS :TYPE “MODIFY PATTERN 15” 
CLR s INITIALIZE WORD IND 
gs: ISR Be TYPPAT : TYPE CURRENT WORD AND VALUE 
TYPE + BEACEL : TYPE A SPACE 
TYPE : TYPE ASTERISK AND SPACE 
sREAD AND CHECK INPUT "NF ANY 
JSR Pc ROCHRS ;READ NEW DATA PATTERN WORD 
Dug :(¢C) RETURN ADDRESS FOR RDCHRS 
268 (#2) RETURN ADDRESS FOR RDCHRS 
9§ :(¢U) OR ERROR RETURN ADDR. FOR ROCHRS 
TST RO :SEE IF ANY INPUT 
BNE 12 :BR IF ANY INPUT 
10$: ado 82, R1 : INCREMENT WORD INDEX 
CMP #32. RI :SEE IF ALL DONE 
BEQ 2$ :BR IF DONE, TO RETURN 
BR $ :CONTINUE WITH NEXT WORD 
123: CMP #’! BUFFO SEE IF (!) TYPED 
BEG 16 ;BR TO PROPAGATE CURRENT VALUE 
CLR Re SINIT. (!) INDICAT 
CMPB saw’! ,BUFFO-1(RO) :SEE IF Last CHAR IN BUF IS ( 
BNE 4 :BR IF NOT (!) 
CLR8 BUFFO-1(RO) : INSERT TERMINATOR BYTE ‘ 
DEC RO !DECREMENT CHAR COUNT f 
INC R2 :SET (!) INDICATOR : 
i4$: CMP #6, RO :SEE HOW MANY CHARS NOW 
BLT 0 :BR IF TOO MANY 
MOV HEUFEO -(SP) :GET BUF. ADDR. ON STACK FOR OCTBIN 
ISR C,OCTBIN ; CHECK DISITS AND CONVERT TO BINARY 
208 OR RETURN ADDRESS FOR OCTBIN 
MOV (SP)+, RO eRe BINARY VALUE 
TST sH1oct :SEE IF VALUE EXCEEDS 16 BITS 
BNE 20$ ?BR TO ECHO BAD INP 
MOV RO, PATIS(R1) :PUT NEW WORD VALUE” INTO TABLE 
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ode ie MODIFY USER-BE INED PATTERN 15 


:SEE IF (8) HBS TYPED 
rons asec WORD TO ENO of “PatTEm 16. if Foe | TE 
ies: che #30. WR :SEE IF ALL DONE YET 
MOV PATIS(RI) PATIS#2(RI) ; PROPAGATE TO NEXT WORD 
ae Rl sINGRERENT Nt WORD INDEX 


ECHO NPUT 
208: oAO ae BUFFO sECHO BAD INPU 
TYPE SQUES : TYPE 4%) ao g cR>, . <LF> 


$3 :BR TO ASK Al 
5 E:k | SHE 
- 
pay )+, *R iREST TORE Rd 
pe RETURN 


RTS ; 
:(tC) RETURN 


: NORMAL BETURN 
228: MOV 


bug: = MOV BDRVTST,E(SP)  ;PC FOR (tC) RETURN 
: 228 ?BR TO RETURN 


+ (42) RETURN 
26S: MOV SASKMDE,6(SP)  ;PC FOR (#2) RETURN 
BR 223 :BR TO RETURN 


. STM TTKPRN «CHECK VALUE OF INPUT PARAMETER 
‘herr CHECK VALUE OF INPUT PARAMETE . 
SeHIE SUBROUTINE CHECKS THE SENTENTS OF LOWOCT AND 
> #HIGOC INST LOWER AND 
aL INITS FOR THE CURRENT PARAMETER. THE TER TABLE 
I URRENT TER MUST BE PASSED 
#70 EHKPRM INR 1 ON ENTRY. IF THE PARAMETER VALUE 
#IS LEGAL, IT is ENTERED INTO THE PARANE | ABL 
:#(PRMLST). IF ETURN IS MADE TO THE ADDR. FOLLOWING 
:#THE CALL TO chwcPb. THE PARAMETER 
# SVALUE ( (32 BITS) R fiat: "INCREMENTED BY 2 BEFORE RETURN. 
f CERROR RETURN A ADDRESS> 
5 FEELALELAESAELALLLALERELELRELELEL AREAL RELALALEREAALALAFERAAELES 


CHKPRM: SAVREG ier" RO-RS 
M R1,Re T fod INDEX 


: DO 

CMP #"MA,PRMNEM(RL) :SEE IF PRRANE TER IS (MA) 

BEG 20$ :BR IF ( 
TST HIGOCT iSEE IF HIGH BITS = 0 

16$: MOV (SP), (SP) Sra PC 

“CHECK VALIDITY OF 16-BIT PARAMETER VALUE 

18s: CMP LOwocT, PRMLIM(RE) - cree IF INPU UT VALUE 1S. TOO SMALL 
BLO VALUE TOO 


IF INPUT 
CMP tBaocr, ermine -SEE IF INPUT VALUE te TOO LARGE 
BHI 163 R {F INPUT VALUE IS TOO LARGE 


SES 0 Ji4 
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PRM - CHECK VALUE OF INPUT PARAMETER 


; UPDATE sestT PARAMETER VALUE IN LIS 
QWOCT, PRMLST(R1) art Ned PARAMETER VALUE INTO LIST 


8 
+ CHECK vel IDITY OF 32-BIT caneaifl VAL 


208: gif S8ITO,LOWOCT  ;SEE IF MA IS ODD 
ae i a PRMLIM#2 (2) SEE rahi WORD TOO SMALL 
I's dg "Ba tf HIGH WORD IS 409 SMALL 
NE 35g -BR IF HIGH WORD NOT EQUAL TO LOW LIMIT 
IMP LOWOCT,PRMLIM(Re} ; jStE I IF LOW WORD IS TOO SMALL 


TOO BIG 
2 HORS nO ; TEAL 19 UPPER LIMIT 
LOWOCT, preuineucBe tee IF LOW MRORE IS T 


BHI 1 jer tf LOW WORD IS TOO LARGE 
“UPDATE 32-BIT PARAMETER VALUE I 
26$: Hoy LOWOCT, R VALUE I jPur LOW WORD INTO LIST 
HIGOCT, rama bien’ chin T HIGH HwORD INTO LIST 


MOV 
1COMPUTS ako T 
FEC crraabe Ger MORO COUNT er R1-RO 
TPE Fire MAX WORD COUNT = 


24s: Sie algocr, renrnecdd) is : set ir HI Mono 18 100 BIG 
CMP 


et SUMLO1 ' 

MOV * SUMHI1 

MOV ReuRt Ot -(SP) ;PUT POINTER ON STACK 

JSR PC, $0826 CONVERT TO OCTAL 

JSR PC, SSUPRS ine T 

TYPE YPE <CR>,<LF> 

ADD Bt LINCRENENT R1 INDEX 
28s: ADD #2, iF GET NORMAL RETURN PC 
30$: RESREG :RESTORE RO-RS 

RTS PC RETURN 


et page ge ogre ep gr ap me ape magn ge mee et te 
MXWROC - GET MAX WORD COUNT FOR CURRENT MEM LIMITS AND CURRENT MA, 

: ¥AND LEAVE THE ORD COUNT IN R1-RO. NO REGISTERS ARE SAVED. 

‘eapestaatensesuaseenenssoseaseanesveanennsansaisneetnnneetesses 


biwWRDC: MOV MAHILM, RO :GET LO BITS OF MEM LIM 
MOV MARIS. R1 sHI BITS OF MEM LIM 
SUB MA,RO :SUBTRACT MA FROM MAHILM 
SEC R1 
SUB MA+2, RL 
BMI 27 :IF NEGATIVE, RETU 
cL :DIVIDE BY 2 TO aE N WORDS 
ROR R1 
ROR RO 
ADD #1,RO s INCREMENT BY 1 WORD 
ADC Rl 
TST Rl 
BEQ 27 :BR IF WORD COUNT < 65,536 DEC 
CLR RO :MAKE WORD COUNT = 65,536 
MOV #1,R1 

278: RTs PC ; RETURN 
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DIRENC.P11 | OS-0C toy CHKPRM - CHECK VALUE OF INPUT PARAMETER 
7788 
aay. : pate ete eeeE atte DRIVE GERI MUTRER Ceol) Dieiien 
7 SSTT SER - TYPE DRIVE SERIAL NUMBER ike 3 DIGITS) 
7791 saTHle cOpRen TINE TYPES “DRIVE SER. NO. CIN DECIMAL), WITH LEADING 
cree :#ZEROS SUPPRESSED. 
s SSSSESRSLESSRSSSLASSASLSSAEAELASLALASLREFAALALSEAAAFLSERELSAASSES 
7794 033602 104407 teens SAVREG :SAVE RO-RS 
7795 004737 030776 JSR PC, INITSS -CLEAR $.S. AND PARAMETERS 
77% O33610 iie7eS 900141 coo001 MOVE ards T4 T P.CMND(RS) ;SET READ STATUS COMMAND 
7797 033616 004737 040774 ISR COR RVCAL >READ STATUS OF THIS DRIVE 
7798 033622 104401 011173 TYPE SaTY ‘TYPE “DRIVE” 
7799 033626 104401 011211 TYPE ,SERNM : Ew ER: Ng " 
oe ee igsoi oos4 MOV P°ALICRS).R1 :GET “a” STATUS BYTE 11 
1 l 4054 MOV #SOCTVL. RG : ¢ FR 
7808 42 O10446 MOV RY, -(SP3 :ST ORE I ON STACK FOR $SUPRS 
44 012703 900003 MOV #3/R3 INIT C 
7804 SO 006101 ROL RI t INITIAL TOE ett POSITIONS 
7805 033652 006101 ROL R1 
7806 033654 906101 4$: ROL Rl ;GET NEXT 4 BITS 
- 7807 033656 006101 ROL R1 
7808 033660 006101 ROL Rl 
7803 033662 006101 ROL RI 
7810 O33664 010100 MOV R1,R0 :GET A WORKING COPY 
7811 033666 042700 177 BIC #177760,R0 : CLEAR BUT LOW 4 BITS 
78i2 033672 OS2700 Oo0060 BIS 'O.R0 ONVERT A DIGIT TO ASCII 
| 7813 0336 1 MOVE RO, {R4)+ *PUT ASCII DIGIT INTO CHAR BUFFER 
7814 533678 DEC :DECREMENT CHAR C 
| 7815 033702 001364 BNE 4 :BR IF NOT3C 
718 033704 105014 CLRB ss CR) s INSERT NULL TERMINATOR 
| 781 004737 os4266 ISR PC aeSSUPRS ;TYPE DRIVE 
| 7818 033712 104401 001315 TYPE  ,SORLF YPE <CR> <LF> 
| 7819 033716 14410 RESREG ; RESTORE RO-RS 
| 78360 033720 GO0207 _ RTs PC : RETURN 
| 782) 
7823 
| 7824 en eee Lae aaa 
| 7835 ‘STTL CRT SER - TYPE CARTRIOGE SERIAL NUMBER 
«PBB :#THIS SUBROUTINE TYPES "CART. SER. NO. XXXXXXXXXXX" (IN OCTAL), 
| 788? ;#WITH LEADING ZEROS SF PPRESSED: 
| 7828  SHELSEREESA ESHA SALT HA LAKE LALE RES SLALEAAR SSAA SLRS RAR LAZLRAFAALAFS 
| 7829 033722 004737 030776 ARTSER: JSR PC ,INITSS sCL AND PARAMETERS 
| 7830 033726 105065 000007 CLRB P-coLH(RS) :SET 22-SECTOR FORMAT 
| 7831 033732 105737 003115 TSTB FORA :CHECK THE ACTUAL FORMAT 
7832 033736 001402 BEG *BR IF 22 SECTORS 
| 7833 033740 105265 9000004 INCB B SeectiRs) *IF 20 SECTORS, READ SECTOR 1 
| 7834 033744 112765 000121 o00001 4s: MOVB § #RDDATA,P. CMND(RS) ;SET READ C 
+7835 033752 012765 600632 000002 MOV #LSTCYL;P.CYLN(RS) ;SET CYL = 632(0CT) 
| 7836 033760 112765 o00002 900005 MOVB  &LSTTRK.P. TRCK (RS) -SET TRACK = 2 
 -7837 766 O12765 O64640 000010 MOV : RUBUF P BALO(RS) ;SET fe: BUFFER ADDRESS 
7838 033774 012765 177776 O000le MOV P.LICCRS) ise D COUNT TO READ 2 WORDS 
= 7835 «034002 004737 040774 ISR BC BRVCAL ;READ "SERIAL NO. IN BSF 
7880 4008 104401 O1led2 TYPE ral sTYPE | mC 
| 7841 O340le 104401 Olieis TYPE  ‘SERNM ;TYPE "SER. NO. 
. 7842 OF401E 012746 OE4E4O MOV BRWBUF , - (SP) :GET POINTER FOR $0820 








. 
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DZRENC P11 OS-0CT-76 10:07 tetsee - TYPE CARTRIDGE SERIAL NUMBER 
7843 034022 04737 953752 JSR PC, a#$08 ee s CONVERT INARY TO 0 a 
? a 4 JSR PC a8SSUPRS YPE CART. SERI - IN OCTAL 
Bess Toad: GelSi tite fa LYRE CCR Ao 


7e4E =O34036 = 000E07 


7847 
res 
7es0 agg Stat etal eee er nT STA Tee ee ee 
L- U 
nee: FSR at 8 pp tl ine 5 STELLS FOR ST STALL TINES, 
7253 SSUMERE Tie = 4 ERAGE” CPU. IF BIT 8 
7855 #18 PouAL Ton] 1, A RANDOM Stu Is APPLIED. 
ress *CallL- JsR’ PC, 
é ena dnnuasessnsousanabennsrenenenuscoouenseduanauessonssnnneanie 
024040 O10046 STALL: MOV RO, (SP) ; SAVE 
7859 034042 010146 MOVs R1. = (SP) ;SAVE Ri 
PeE0 Gasosd Geer7? 000400 145066 BIT ee! T08, aSWR APPLY RANDOM STALL ? 
eee eq spar 3 3150 ise eC ee Ue PSEUDOCRANDOM NUMBER 
bees BSubeC 0137 Resies MOV g,ORUR, RO :GET IT INTO RO 
7864 034064 006200 ASR SCALE IT DOWN 
‘7865S O34066 006200 asR 
7866 034070 900403 oF 53 ;GO STALL WITH RANDOM NO. 
7867 034072 013700 oossoe 1$: MOV  —- STALLS, RO ;GET REQUESTED NO. OF STALLS 
pau07& 901406 BEQ § eRETURN IF NO STALL REQUIRED 
1 12701 OO00016 2$: MOV #14. ,R1 :SET CONSTANT FOR 40 US 
7870 034104 005301 4g: DEC ~COsé@RR2L ;INNER LOOP COUNTER 
perk G34108 901376 BNE =-4$ INNER LOOP BR 
787, 110 905300 DEC =—-—saRRO. OUTER LOOP COUNTER 
7873 034112 9001372 BNE 2 ;OUTER LOOP BR 
7874 034114 012601 b$: MOV (SP)+,R1 RESTORE Rl 
7875 O34116 012600 MOV (SP)+)RO ; RESTORE Ra 
7876 034120 RTS = PC ; RETURN 
7877 
7878 
poet . eR ee EET TEM IMER MEGS GMERATOR 
7881 ‘aSTTL RNDADR - RANDOM CYLINDER ADDRESS GENERA 
7882 ;#THIS SUBROUTINE GENERATES @ PSEUDQ-RANDOM S811 CYLINOER 
7883 BODRESS, GND LEAVES IT IN “CYLNOR. IT REQUIRES THE SYSMAC 
7284 {#SUBROUT TINE SRAND. 
7885 CALL RNDADR 
7E8E Li ateatereassanensenesheanesnensnasaceseauasanaaeanenesonsaesieyy 
7887 034122 004737 052150 RADADR: JSR PC, SRAND GENERATE 2 16-817 RANOON NUNGERS 
eet ee bee es 
5685 Buide be5039 bonese | BoeeoS CMP #632, CYLNOR ;SEE IF cr Is ie BIG 
7831 034150 002003 BGE = aS cYL I 
rose Gasise O4e737 OO04O0 ODSSO4 BIC #81TO8, CYLNOR :SCALE Down FoR VALID CYLINOER 
7863 O34160 Oo0207 2S: RTS = PC ;RETU 
7294 
7695 
7896 


7897 5p AREER EERE EE EEE EEE E EEE ERE REE AER EEE LEER EEE AE EE RARE LELE RARER REDE EL 
7E9E th LODSEC - THIS SUBROUTINE LOADS THE CONTENTS OF RO INTO ALL 
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RNDAODR - RANDOM CYLINDER ADORESS GENERAT 


;#2S56(DEC) WORDS OF THE DATA BUFFER (RWBUF). 
iracenbanesensneunmpunennrsnnenseesnesCasoniay EuSnDEnENanON 


LBOSEC: SAvREG #RWBUF , RL SOF DATA BUF INTO RL 
2s: MYDS a a cs OF 8 
CMP sR @RWBUF+512. Se WORDS WRITTEN YET 
BNE BS ef IF NOT DONE YET 
RESREG BB ORE RO- 
RTS = PC ; RETURN 


Og peg rt gp ogres gap ae See gp te oy 
# TRKCHK - THIS SUBROUTINE DOES A WRITE-CHECK OF SECTOR FS ON CYL 
TA_IS COMPARED TO THE 


: AR 
;*THE PARAMETER BLOCK MUST BE PRE-LOADED WITH THE PROPER PARAMETERS. 
To ee > leeeneree cma "a © pecremnenmeenpeeerre: 


+RKCHK: 
P. SECT(RS), -(SP)’ seve TaRCK AND SECTOR PARAMETERS 


CLRB ss P.. TRICK HE TRACK 
LOAD THE DATA BUFFER ult THE ciRRENT TRACK 
2s: HOV B  P.TRCK(RS),RO ;GET it NO 


K NO. 
*L WITH TRACK NO. + 100(0CT) 
MOVE § @WRTCHK.P.CMND(RS) ;SET NRITE gtr COMMAND 

ISR DRVCAL >PERFORM THE WRITE CHECK 

INCB =P. TRCK(RS) !INCREMENT THE TRACK NO. 

CMPB = s«#3,P. TRCK(RS) SEE IF DONE WITH ALL TRACKS 


BNE :BR IF NOT DONE 
MOV (SP)+,P.SECT(RS) :RESTORE TRACK AND SECTOR PARAMETERS 
RESREG :RESTORE RO-RS 

RTS PC : RETURN 


. © LESSEE LEAA SKE KAAS ARSSSESESL ALE RESRERAAERSEHA SSA LALESRELSLEREFEE 
€LODP14 - GENERATE SIXTEEN PSEUIDO-RANDOM NUMBERS AND LOAD THEM 
t#INTO THE PATTERN 14 TABLE. 
14- bpd} lieth ++1~ + “at naira nieaais 
fADP14: SAVREG ; SAVE 
MOV SINIT LOOP COUNTER 


#8. 
MOV seatiy RO :GET ADDRESS OF PaTTERN 14 BUFFER 
4g: JSR PC, SRAND : T 

MOV $LONUM, (RO)+ sBUT ONE NUMBER INTO PATTE N 

MOV SHINUM, (RO)+ sPUT OTHER NO. INTO PATTERN 


DEC Rl ;SEE IF 16 WORDS LOADED YET 
BNE 4§ BR IF NOT YET 

RESREG ; RESTORE RO-RS 

RTS PC ; RETURN 


4 Let FINA ~ COMPUTE FING PACK ARES, 
‘ABTTL FINADR - COMPUTE FINAL PACK ADDRESS 
“SeHIs SUBROUTINE IS USED AFTER A DATA TRANSFER HAS COMPLETED, TO 





(eee ee ee 


MO-11-D2REN-C - wre Ag SUBSYS. VERIF. ; PART 2 MACY11 27(1006) OS-OCT-76 10:59 PAGE 153 SEG 01Sé2 
OZRENC P11 0S-0CT 10:07 FINADR - COMPUTE FINAL PACK ADDRESS 


| 7955 : #CONPUTE THE + Spector oF ang aT TERMINATION. etic S COMP He arts 
ite ORO Ness T HE Re ont BF Seer Bs) 10 comput aoe, re 

7958 :#PACK ADDRESS WHICH 2 RETURNED FING "oho F 
es $ATHE SUBROUTINE FF the IS USED 70 BEER INE HE ‘back NTR OF i Meee ope 
7361 pt a i ARETE RAT React ACAD 
7362 O34326 104407 étNaoR: SA VREG ;SAVE RO-RS 
7363 934330 013746 005570 LASTWC, -(SP) :STORE WORD COUN 
fai Gee Bee o of SR 
7 338 116616 000003 MOVB 315), (SP) ORE NO. oh et C ORs TRANSFERRED 
7967 034344 605066 000002 CLR 2(SP) -CLEAR LOCATION 
7968 024350 116566 000004 oo0002 MOVE P.SECT(RS),2(SP)’;STORE STARTING Ton 
cae DSNaES SERRE | DODDDE Op -gtSe). (SP) DETERMINE FINA, SECTOR MOCRESS 
7971 365 BoSoee nant MOV #22. ,RO scEEAR FOR 22 SECTORS 
7972 034372 105737 003115 TSTB FORMAT :DETERMINE THE FORMAT 
7873 034376 001402 BEQ 19$ :BR 2 SECTORS 
7974 024400 012700 o90024 MOV #20. ,RO :SET FOR 20 SECTORS 
7975 O34404 O20016 19S: CMP RO, (SP) :CHECK FOR SECTOR OVERFLOW 

| 7976 O34408 101004 BHI =NO, CHECK IF SECT 

| 79877 Cs4H410 i600i6 Sus RO. (SP) :DECREMENT SECTOR COUNT BY 20 OR 22 

| 7978 O3441e O0S266 oooon2 INC 2¢$P) : INCREMENT TRACKS TRANSFERRED 

| 79878 O34416 000772 3k 19$ :CHECK FOR SECTOR OVERFLOW 

| 7980 O34420 112637 oosse7 20$:  MOVB (SP)+,FINSEC  ;STORE FINAL SEC 
7581 O34424 O0So46 CLR -(SP) MAKE ROOM FOR. TRACKS TRANSFERRED 
7962 O34426 116516 ooD005 MOVB  P.TRCK(RS),(SP) STORE E STBRTING ACK 
7983 O34432 O6€616 00002 ADD (SP), (SP) :DETERMINE FINAL Re CK ADDRESS 

| 7984 O34436 OOSOEE 900902 CLR 2(5P) :CLEAR FINAL CYL 

| 7985 O34442 122716 9000003 21$:  CMPB #3, (SP) :CHECK FOR TRACK OVERFLOW 

| $369 Qsauen LeSete goo003 ate oes ep) Deteenen TRACK CRUMT BY 3 
7988 O3s4454 O0S266 o000002 INC 2(SP) INC 

| 7989 O34460 000779 oR 21$ UNE CK Orbe ouncK OVERFLOW 

| 7990 O34462 112637 oossee 22$:  MOVB (SP)+,FINTRK  ;STORE FINAL TRACK 

| 7991 OF4466 O&6S51e 900002 ADD P.CYLN(RS), (SP) :CALCULATE FINAL CYLINDER 

| 7382 034472 011637 O05564 MoV  (SP),FINCYL = ; STORE FINAL_ CYLINDER 

| 7993 934476 005726 (SP)+ :CLEAN OFF STACK 

_ 7994 O34500 104410 RESREG ?RESTORE RO-RS 

73% 034502 000207 RTS PC : RETURN 

ee 

| 7333 g: FLEE XLKREXKSEA ALLER RAK AA LS LE ES EL EEA ARALEAAERALAAERARATEAAAAFEAE 

| B000 "SBTTL LODBUF - LOAD THE READ/WRITE DATA BUFFER 

| 800} :#THIS SUBROUTINE LOADS THE READ/WRITE DATA BUFFER (POINTED TO BY 

| Bode :* PMA AND PMA+2) WITH THE APPROPRIATE REPEATING DATA PATTERN. IF 

| 8003 ;#PARAMETER PATRN = ENTRY, THE DATA WHICH IS LOADED IS, COMPRISED 
8904 ;#OF ALL THE PATTERNS O-15 (QUICK VERIFY WOEFAULT 
Boos :*IF PATRN IS NOT NO. OF W INT ROMER 
BODE :*0F THE PATTERN :DENTI IFIED BY THE NO. OF THE BIT SET IN R1 ON 
8007 fy he ARE LOADED INTO THE BUFFER. . 
tte: EH Beri r errr Pee Lettie ra tener ene eE Ten Teen ee TT eT TET TT TTT PAK 
8010 O34504 104407 LODBUF: SAVREG ;SAVE RO-RS p ki} 
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172354 
177572 


172354 


177572 


Lobeur - 


6$: 


; BUFFER 


22s: 
24s: 


26S: 


ess: 


- BUFFER 
30S: 


34S: 


44S: 
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LOAD THE READ/WRITE UFFER 

















rst mr ‘ee MP oot ICK K YERIEY ATA TEST DESIRED 
b 4 
bee |S BEE DF OUT et Ce denies 
MOV #PATOO,RO :SET DATA PaTTER VETARTING ADDRESS 
MOV #256. .-(SP) :SET PATTERN WORD COUNT 
NOV SRLEUF , RI ;SET BUFFER aboRESs 
CLR RO ‘INIT Poe re 
BIT #8IT0,R1 SEE I HIS BI SET 
aa cdot ebttel 8 
S RI fi ewe O ENA E next BIT > 
BR 4g :BR TO CHECK 
BSL R : MULTIPLY SA Then i BY 32(DEC) 
ASL RO 
as. RO 
ASL RO 
ADD #PATOO, RO GET ADDRESS OF DESIRED PATTERN 
MOV #16..-(SP) :SET PATTERN WORD COU 
MOV PMA. RI :SET BUFFER ADDRESS 
TST SKT11 ;SEE IF MEM MGT PRESENT 
°BR IF NOT PRESENT 


BPL 
LOAD LOOP FOR MEM MGT STARTS HERE 


MOV SAVPAR, J#KIPARS ;SET UP WORKING PAR 
BIS #8170, a#SRO : TURN ON MEMORY MANAGEMENT 
BIC #160000, R1 ?FORCE RELOCATION THRU KIPARE 
BIS #140000; R 
MOV RO,R3 :GET A COPY OF PATTERN RODRESS 
MOV (SP) RY : INIT PATTERN Wo 
MOY (R3)4, (R1)+ *LOAD_A DATA WORD INTO SUFFER 
gi #81T13,R1 ; SEE IF nQVERELOU TO NEXT PAGE 


265 OVERFLOW 
ADD #200, J#KIPARS INCREMENT PAR BY 4K FOR NEW PAGE 
BIC #81T13,R1 :SET PAGE = 

DEC R2 ; DECREMENT “WORD COUNTER 


BEQ ess AL 

DEC RY : DECREMENT PATTERN WORD COUNT 
BNE 24s ;BR IF NOT DONE WITH PATTERN YET 
BR e2$ :BR TO REPEAT THE PATTERN 


BIC #BITO,d#SRO ; DISABLE MEMORY MANAGEMENT 
TO RETURN 


BR 44 
LOAD Lock FOR NO MEM Nir’ Brents HERE 
MOV R TA COPY OF PATTERN ADDRESS 


MOV Roee :INIT PATTERN WORD COUNT 

MOV (Rays CRI D+ *LOAD A DATA WORD INTO BUFFER 
DEC R2 i DECRENENT WORD COUNTER 

BEQ 44g L 

DEC RY  DECREMENT PATTERN WORD COUNT 
BNE 345 :BR IF NOT DONE WITH PATTERN YET 
BR 30$ ;BR TO REPEAT THE PATTERN 

TST (SP )+ :POP THE STACK 

RESREG *RESTORE RO-RS 

RTS PC : RETURN 
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DZRENC.P11 OS-OCT-7& 10:07 LODSUF - LORD THE READ/WRITE DATA BUFFER 
8067 
8068 cn, i. wie aaa 
aay “SeTTL SUBROUTIN “PERFORNS 8 SOFTEE C OF THE R/W DATA BUFFER (POINTED 
sik / 
a7 :*T By PMA NE Maee) +2) 10 THE APPROPRIATE: REPEATING DATA pate eBY FF 
== :#PARAMETER PATRN = 0 on ENTRY MPRISED OF aL a PATTERNS 
73 :*00-15 (QUICK WiERIFY DE DEFAULT beta 
74 ;#IF PATRN IS NOT O THE ei SET IN RL ON ENTRY IDENTIFIES THE 
8075 :#REPEATING DATA patron "O° COMPARE AGAINST. 
8076 prerelease tS a Ln RIE 
8077 024732 104407 es SAVREG ;SAVE RO-RS 
8078 .034734 112737 o00040 063157 MOVE  #40,DH701+38. RESTORE ERROR MSG PARAMS 
8078 “034742 bie? 090007 o64532 MOV 87, DF2S+2 
80280 750 913702 oossée MOV WOSXFR, Re ;SET NO. OF WORDS 
8681 034754 005037 905532 CLR SCRACH :CLEAR COMPARE ERROR COUNT 
8082 034760 004737 O042206 WSR PC, REPSUP :STORE PREV CMND FOR POSS. PRINT 
8083 034764 7327 905534 TST PATRN ize IF THIS IS QUICK VERIFY DEFAULT DATA TEST 
8084 034770 001007 BNE 3$ NOT 
8085 034772 012700 906024 MOV #PATOO, RO T DATA PATTERN STARTING ADDR 
8086 O34776 O12745 oO00400 MOV #256. .-(SP) 13 PATTERN WORD COUNT 
8087 O35002 01270: O64E40 MOY $RWBUF ,R1 :SET BUFFER ADDRESS 
g088 O25006 OO046é BR 30$ : PROC ED 
8089 025010 ooso00c 3$: CLR RO ‘INIT PATTERN NO. 
8090 035012 032701 oo0001 4g: BIT #BITO,R1 : SEE IF THIS BIT IS SET 
e09 035016 001003 BNE 6$ BR IF THIS obit 1S SET 
Baee 005200 ING RO INCREMENT PATTERN NUMBER 
8093 035022 O06201 ASR RI s SHIFT TO EXAMINE NEXT BIT 
gcs4 b250e4 000772 BR 4§ :BR TO CHECK NEXT BIT 
8095 035026 006300 6S: ASL RO :MULTIPLY PATTERN NO. BY 32(DEC) 
035030 006300 ASL RO 
8097 025032 ASL RO 
8098 035034 906300 ASL RO 
2999 006200 ASL RO 
8100 O35040 062700 ops0e4 ADD wPATOO RO ;GET ADDRESS OF DESIRED PATTERN 
£101 O25044 O12e746 O0G020 MOV -{SP) “PATTERN WORD COUN 
8102 013701 o0séde MOV LE ARI :SET BUFFER ae 
8103 035054 905737 OS6246 TST SKT11 :SEE IF MEM MGT PRESENT 
8104 035060 100041 BPL 30$ 18 IF NOT PRESENT 
810s ;COMPARE LOOP FOR MEM NGT STAR 
8106 o35062 013737 003176 172354 MOV Sav PAR, @ IKTPARE Ean uP WORKING PAR 
8107 035070 052737 000001 177572 BIS 9, S4SRO :TURN ON MEM 
8108 025076 042701 160000 BIC Fe0BO0 B : FORCE REL SCATION THRU KIPARG 
113 BSE 106 br 8008 shares 225 nov soe i :GET_A COPY OF PATTERN | RODRESS 
Btti RSet Bt Eos MOV (SP) RY INIT paTTERN WORD COU 
Blie O35112 022321 24S: CMP (Rayt (R1)+ ; COMPARE DATA WORD TO DATTERN WORD 
gis 035114 OO1404 BEQ 2g F NO ERROR 
114 035116 013737 172354 o01216 MOV J#KIPARG, SREGIG SET PAR FOR PRINTOUT 
8115 035124 900432 BR HANDLE ERROR 
B11 025126 932701 o20000 25$: BIT #81T13,R1 SEE IF OVERFLOW TO NEXT PAGE 
8117 O35132 OO14 BEQ 26S :BR IF NO OVERFLOW 
8118 035134 062737 o00200 172354 ADD #200,28KIPAR6 :INCR PAR BY 4k FOR NEW PAGE 
8119 025142 o42701 O20000 BIC #81T13,R1 :SET PAGE = 6 AGAIN 
8120 025146 o05302 263: DEC Re :DECREMENT WORD COUNTER 
Gl21 035150 ool002 BNE 275 :BR IF NOT ALL DONE YET 
Gl22 035152 000137 o2se1e IMP Sus ‘ALL DONE - GET OUT 
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' 
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05-OCT-76 10:07 eMPBUF - SOFTWARE COMPARE OATA 
995304 27S: DEC RY : DECREMENT T PATTERN WORD COUNT 
ators BR 2 BR if _perent THe PATTERN 
“COMPARE LOOP FOR NO MEM MGT STARTS HE 
010003 30$: MOV RO,R3 :GET HEB OF PATTERN ADDRESS 
011804 MOV (SP),R : INIT PATTERN HO WORD COUNT 
022321 34$: CMP (Rays cRL)4 :COMPARE DATA WORD TO PATTERN WORD 
00100 SNE 31$ ;BR IF COMPARE ERROR 
000137 025576 JMS 40$ UMP IF DATA COMPARES OK 
105037 063157 318: CLRB  DH701+38. :ADJUST DATA HEADER FOR MSG 
012737 so000S 064532 MOV #5, DF25+2 AT JUST ERROR DATA WORD COUNT 
-COMMON COMPARE ERROR HANDLER 
010237 001202 358: MOV SREGIO GET WORD NO. 
163737 OO5S62 001202 SUB WOSXFR, $REG1O 
013737 001202 905570 MOV $REGIO'LASTWC  ;GET 2°S COMP OF WORD NO. 
004737 034326 ISR PC, FINADR :COMPUTE ACTUAL PACK ADRS 
104407 SAVREG 5 SAV VE RO-RS 
013700 oosse4 MOV FINCYL,RO YL 
113701 OOSSE6 MOVB FINTRK.RI sGET TRACK 
113702 005567 MOVB § FINSEC’Re GET SECT br 
004737 940670 JSR PC, BDSRCK :SEE IF THIS SECTOR LISTED BAD 
104410 RESREG RESTORE RO-RS 
032737 001000 o0s474 BIT #BADSEC , RECODE 
001132 BNE SOS :BR IF LISTED- Don’ T REPORT ERROR 
005737 005532 TST SCRACH :CHECK THE ERROR COUNT 
001024 BNE 6$ :BR IF THIS IS NOT FIRST ERROR 
105737 003134 TSTB - UBMPRS ; SEE IF UNIBUS MAP PRESENT 
001411 BEQ 4S NOT 
013737 905260 001174 MOV CRMPHO,SREGS | :GET CURRENT MAP REG O 
013737 o05256 001176 MOV CRMPLO? SREGS 
104116 ERR 116 ;DATA MISCOMPARE (11/70) 
104117 ERROR 117 
000401 R 48g 
104024 46S: ERROR 34 sTYPE HEADING FOR ERROR MSG 
012737 177777 OO1174 48S: OV #-1, SREGS !INIT CYL NO. 
005037 001176 CLR SREGE 
005037 901200 CLR SREG7 
005237 905532 36$: ‘INC SCRACH s INCREMENT THE ERROR COUN 
032777 OO000i 143SS6 BIT #8170, ISWR SEE IF BLL ERRORS SHOULD. BE REPORTED 
001004 BNE 38 ‘BR TO REPORT ALL ERRORS 
022737 o00012 opss32 CMP #10. ,SCRACH SEE IF 10(DEC) ERRORS YET 
2511 BLT cus BR IF ERROR LIMIT EXCEEDED 
023737 001174 OOSS6Y 38%: CMP SREGS, FINCYL ; SEE IF DIFFERENT CYL 
001010 BNE 4 YES 
lear? 001176 OOSS&E CPB SREG6, FINTRK SEE IF DIFFERENT TRACK 
e973? 001200 905567 CMPB SREG7, FINSEC SEE IF “DIFFERENT SECTOR 
1412 BEQ 4Ug ?BR IF SAME PACK ADDRESS 
013737 OOSSEY O01174 42%: MOV FINCYL,SREGS | ;SET NEW PACK MADRS FOR PRINTOUT 
113737 OOSS66 001176 MOVB  FINTRK; $REG6 
113737 005567 901200 MOVB - FINSEC; $REG7 
104115 ERROR 115 ; TYPE NEW PACK ADDRESS 
005437 001202 44$: NEG $REG10 ORD NO. 
016337 177776 oO1204 Mov -2(R3),$REGI1 ET GOOD DATA 
016137 177776 OOle06 MOV -2(R1)'SREGI2  ;GET 
013737 OOle02 OOl2ie MOV SREGIO'SREGIY COMPUTE PHYSICAL ADDRESS 
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éMPRUF - SOFTWARE COMPARE DATA 
CLR $REG13 
ROL peels 


ADD PMA+2, SREGI3 
MOV R1, $REGIS 
SUB #2" SREGIS 


;GET VIRT. ADRS FOR PRINTOUT 


ERROR 63 ;TYPE GOOD AND BAD DATA, MEM. ADRS. 
BIT #8I1T6, dSWR : SEE IF JUST 1 ERROR SHOULD BE REPORTED 
BNE S4$ R IF JUST 1 ERROR SHOULD BE REPORTED 
50S: TST ad ge iSEE IF DEFAULT DATA TEST 
Fe] a1 ;SEE_ IF MEM MGT _— 
BPL 40$ = ;BR IF NOT PR Ae! 
JMP ess ;GO HANDLE MEM 
40$: DEC Re ; DECREMENT WORD ROUNTER 
BEG Sus :BR IF ALL DO 
DEC R4 :DECREMENT PATTERN WORD COUN 
BNE 53$ BR F_NOT DONE WITH PATTERN "er 
JMP 30$ TO REPEAT THE PATTERN 
535: JMP 34S 
54S: TST $KT11 ;SEE_IF MEM MGT PRESENT 
BPL S$ :BR_IF NOT PRESENT 
BIC #81T0,ad#SRO :DISABLE MEM MGT 
SES: TST (SP)+ ;P K 
RESREG RESTORE RO-RS 
TS PC ; RETURN 


. wee eg ae ere ti oa or ee 
tS CTLOUT - THIS SUBROUTINE CHECKS FOR (tC) OR (+2) TTY INPUT. 
:eIF (tC) WAS TYPED, THE SUBROUTINE RETURNS TO bacTst. IF (#2) 

WAS TYPED, THE SUBROUTINE RETURNS TO INPUTP. IN EITHER CASE, - 

;*A RESET INSTRUCTION IS EXECUTED, AND THE STACK IS RE-INIT- 
*#IALIZED. IF THERE IS NO INPUT, OR INPUT OTHER THAN (tC) OR (2), 
:4NO ACTION IS T 
?* CALL - Isp“ Nec, CTLOUT 
je OR - _CKEXIT 

Ea TE tT eEE TF CURRENTLY RUNNING TESTS 

AtOUT: CMPB #1, TSTING SEE IF CURRENTLY RUNNING TESTS 

BNE 10 ?BR IF NOT RUNNING TESTS 
TST INTCHR ; SEE IF ANY TTY INPUT 


BEQ 10$ 

uy — +SEE Peat MODE RUN 

CMPE #003, INTCHR SEE IF (tC) TYPED 

BNE 4$ IF NOT (tC) 

MOV #ORVTST,RO SET RETURN ADDR = DRVTST 
es: iis XOVLAD ; SEE BF be CURRENTLY OVERLAID 

JSR PC, GETXDP iREST a SAVED XXDP, IF NECESSARY 
6S: RESET ;RESET ALL DEV 

CLR INTCHR : CLEAR Ty CHAR fe WORD 

CLR STIMES CLEAR THE ITER. COUNT 
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éMPBUF - Sor TWARE Kone Ae © DATA 
CLRE = XDPSVD sCLEAR THE xXDP SAVED F 
MOV SERPHOL.A.ABNL RESTORE ERROR HANOLER eh Seess 
“OV asTACK, SP “RESET THE STACK 
MOVB BRECALP. CHND (RS) -SET RECAL C 
15k PC DRVEAL :D CLEANUP RECALIBRATE 
CLR STSTNM :CLEAR THE TEST NO. 
IMP RO SEXIT FROM TEST 
4§: o 8032, INTCHR *SEE IF (#2) oIBED 
BNE 7§ :BR IF NOT (¢2) 
MOV 8INPUTP, RO ig TURN = INPUTP 
5 2 TAKE EXIT 
128:  CMPB $8003, INTCHR ; SEE Ft (#0) TYPED 
BNE 7§ NOT 
TYPE  ,HLTROD Ty YPE “HALT REQUESTED” 
TYPE CNTRDY :TYPE “PRESS CONT WHEN RDY™ 
MOV BHLTPRG, RO get HALT ADDRESS 
BR tiédKS AKE EXIT 
7$ CMPB = s« 8007, INTCHR i HF st (4G) ) TYPED 
os fd C.GTSWRG Bech spe Twane SuR FOR MODIFICATION 
g$: ye FC, PREPKB ‘ENABLE KBD INPUT AGAIN 
108: RTS : RETURN 
DURTCEC  MRITE A BLOCK OF WEOCOCT) WORDS ONTO DISK AND PERFORN . 
: BART SEC - WRITE A BLOCK OF 400(0CT) WORDS ONTO 0 DISK ie PEE ORM 
#A WRITE CHECK. PARAMETER BLOCK MUST BE PRE-L HP 
; i SAODRESS. DATA WORD IS PASSED IN R3 ON ENTRY a Is THE BUFFES 
+s FEERERRERSSEEEE REESE EELES SEES EE EE ES EE EEE EERE SEES ESE EEE SEE SESS 
TSEC: SAVREG ;SAVE RO-RS 
:LOAD THE R/W SUFFER WITH DATA 
MOY sRWSUF RO :BUFFER ADDRESS 
MOV #400, Ri :4O0(OCT) WORDS 
48: MOV Ba, (RO) :LOAD A BUFFER WORD 
DEC CR COUNTER 
BNE if IF NOT DONE YET 
:SET UP PARAMETERS 
MOV #RWBUF .P. a ines -SET BUS ADDRESS 
MOV #-400,P.WC(RS) ;SET WORD COUNT 
;WRITE THE DATA 
VB BWROATA.P CHIND (RS -SET WRITE C 
gi! s8I1T1, aSWR SEE IF JBRITES PNMTeS TED 
ISR PC. ORVCAL RITE THE DATA 
“PERFORM WRITE CHECK 
és: MOVE aATOM .CMND(RS) ,SET WRITE CHECK COMMAND 
JSR DRYCAL” PERE O ORM WR UBITE CHECK 
RESREG RESTORE 
RTS i : RETURN 


1 S SESSSSERELETSELAELELSRARESSSSLERALSRASFLSLLASLELESFASFRLSRARERAREA 
*$LDMEM] - LOAD MEMORY WITH INCREASING NUMBERS, STARTING WITH 1. 
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CMPBUF - SOFTWARE COMPARE DATA 


MEMORY WITH ATE ofr: IN_R3 ON ENTRY. 
jabory SUSRSUTTNeS. RE GUI MERORY "IN PMA, PMRe2, AND WORD COUNT 


7 #MUS ST SE I 
isausannennennsonssnscnescnscavensousgusnsssossssssossonsoss 2494 
VREG 


MEML: 
RY Be yi TES DMEM 1 
60000 3 MOV #1 83 fi BS ai 
=e L 
LDMEM2: SAVREG s PROG ee “RS 
17777? MOV 8-1,R4 :R4=2177777 INDICATES LOMEM2 
gos55e LOMO: MOV WOSKFR, Re :GET NO. OF WORDS 
02 MOV PMA RI :GET MEM ADRS 
CSEE4E TST SKTI1 :SEE IF MEM MGT 
EPL 23 :BR IF NO 
l arc #160000,81 "FORCE RELOCATION THRU PARE 
l BIS #140000, Ri 
poate 172354 MOV SAVPAR. SK IPARE ; INIT PARE 
hth PP A HN rem By 
TST : SEE waren Bath Se eUEEE 
BNE :BR IF NOT INCRE NTING DATA 
INC 3 : INCREMENT THE DATA 
OSee4e ag TST SkTL1 -SEE IF MEM MGT 
ert 10$ -BR IF NOT 
o20000 BI s8IT13,R1 :SEE IF OVERFLOW TO NEXT PAGE 
BEO 10$ :BR IF NO OVERFLOW 
ponens 172254 ADD 8200 34K IPARE :INCR PAR BY 4K FOR NEW PAGE 
BIC 1T13,8 :SET PAGE = 6 RGRIN 
10$: C sDECREMENT COUN 
BNE 6$ :BR IF NOT DON TES ROING YET _ 
OSb246 TS $KT1! :SEE IF MEM MG 
- BPL 12 :BR IF NOT 
000001 (177872 SIC #8170, a8SR0 :TURN OFF MEM MGT 
12$: RESREG :RESTORE RO-RS 
RTS PC : RETURN 
; « FSFSESSSASSSSASSSSSSARSASSSLSEFSESASESSLSAERSSRELASFTESASLEFHLLELFE 
iicheM - P REOR SOF THARE COMPARE OF MEMORY, WITH INCREASING 
3 eEKTE PERE OR SOFTWARE COMPARE OF MEMORY, WITH REPEATED DATA WORD 
ser SUBROUTINES REQUIRE MEM ADRS IN PMA, PMA+2, AND WORD COUNT MUST BE 
LTR + pascunia mniiaey “7 aw” aeamnenieersets, 
C MEMI: VE RO-RS 
L ie! sR4=0 INDICATES CKMEM1 
000001 MOV #1,R3 :INIT DATA TO 1 
BR CKMO : PROCEED 
CKMEM2: SAVREG :SAVE RO-RS 
477777 . MOV #-1,R4 :R4=177777 INDICATES CKMEM2 
ctte CKMO: MOV WOSKFR, Re T NO. OF WORDS 
o05&02 MOV PMA, RI ‘GET MEM ADRS 
005532 ; CLR SCRACH 


OCOO40 063157 MOVB #40, H701+38. ;RESTORE ERROR MSG PARAMS 





MO-11-DEREN-C - wr a be A SUESYS. VERIF. 


DSRENC-P1l  OS-Oct= 
= - > 
Be aierz 
B49 036364 O0S73? 
B25 On012 
i sat 
| Bes os75i 
S323 D3e40S 01373? 
S354 O36410 OE2737 
S365 S5e4]6 Oe 
Sse Dseusn Boles 
exe> 
| S558 oeeaze ougea7 
| #33 beease Brae 
Eee) Saedas Baaoae 
B35 O3E44— 104407 
g3b3 Oab4e0 013700 
34 OoeeY 113701 
B35 D3e4eC- 113708 
Bach O3e4E4 B04T2 
57 OSE470 104410 
S328 Oseu72 032737 
5329 036500 9011 
5550 Oses0s pos 
537] O36506 00406 
| 8372 036510 10S037 
«BSG eee? Bae cae 
| Es 056854 Se 
| 8375 O36532 005797 
 <§S5 B3ee3e doles 
557g O3ee00 1 DE7S7 
| 8378 o3ee49 O01g11 
530g SseS4— 0137 
| 8368] O365s4 013737 
S362 O2esb2 10411 
5263 O3ese4 10411 
| 8364 036566 OO0401 
S365 O36575 104034 
| 8386 036872 012737 
| 636? 036600 005037 
5362 036604 908037 
| BBS DSee10 O0ee37 
| 6360 036614 032777 
| B36] O3ee22 O01 
| 8362 O3ee54 022737 
| 6343 36632 doSsie 
| 8364 O3ees4 23797 
B33 Osee42 O01010 
B56 O2ee49 129737 
8367 O32 001004 
| 6362 O3ee84 123737 
8365 Oseee2 Ool4i2 
 -Ba6d O3eee4 013797 
| 6401 O366%2 113737 
Buns O3e705 1123737 


eee 


OS&e46 
160000 
149000 
003176 
000001 


064832 


005474 


064532 
001216 


001174 
001176 


001174 


142316 
005532 
00SS64 
OOSSEE 
00SS67 
001174 


001176 
001200 


emBaUF - SOFTWARE COMPARE DA 


MOV a7, * 
Wey BC BEER IS 
TST sktil 
PL $ 
1¢ #160000,R: 
BIS #140000; Ri 
MOV VPAR dak IPARS 
BI 88170, aa8SRO 
és: ¢ R32. (RI)+ 
BEG 16 
: COMPARE ERROR HAROLER 
MOV Re, SREGIO 
my eesepetl 
JSR See t Rabe 
SAVREG 
MOV FINCYL,RO 
MOVE  FINTRK-RI1 
MOVE = FINSEC Re 
JSR PC, BDSRCK 
RESREG 
BIT S8ADSEC , RECODE 
BNE 
TST SKT11 
BMI ag 
ey DH701+38. 
. MOV 85, DF 25+2 
3 9 
8$: MOV JBKIPARG,SREGIE ; 
33: TST SCRACH 
BNE 10$ 
TSTB  UBMPRS 
SEQ 178 
MOY . CRMPHO, $REGS 
ERROR 116 
ERROR 117 
BR 11 
17$: ERROR 34 
118: MOV #-1, SREGS 
CLR REGE 
CLR SREG7 
108: in SCRACH 
I 88170, ISWR 
BNE 12$ 
CMP 810. , SCRACH 
BLT 21$ 
12S: CMP SREGS, FINCYL 
SNE 14 
CMPB sd SREG&,, FINTRK 
BNE 4 ¥ 
CMP8 ©=- SREG7, FINSEC * 
BEG § 
14$: MOV FINCYL, $REGS 
MOVE  FINTRK. $RE36 
MOVE FINSEC: $REG7 
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%) OS-OCT-76 10:59 PAGE 160 


;STORE_PREV CMNO FOR POSS. PRINT 


: SEE iF mk M MGT 

;BR IF 

:FORCE RELOCATION THRU PARE 
:INIT PARE 


; TURN ON. MEM MGT 
;COMPARE -A DATA WORD 
;BR IF DATA COMPARES Ok 


;GET WORD NO. 


;GET 2° 

: COMPUT 

:SAVE RO-RS 
CYL 

sGET TRACK 

sGET SECTOR 

3;SEE IF THIS SECTOR LISTED BAD 

;RESTORE RO-RS 

;BR IF pt DON’T REPORT ERROR 

i SEE IF EM MGT 


ADJUST DATA HEADER FOR MSG 
ADJ. ERROR DATA WORD COUNT 


;SET PAR FOR PRINT 

;SEE_IF FIRST ERROR IN THIS BLOCK 
:BR IF NOT FIRST ERR 

Bee IF UNIBUS MAP PRESENT 


NOt 
;CURRENT US MAP REG 0 
;DATA MISCOMPARE (11/70) 


TVs get FOR ERROR MSG 
INIT CYL NO. 


; INCREMENT THE ERROR COUN 
SEE TF ol i Sie ao "se REPORTED 


;BR_ TO REPO L 

;SEE_IF TOCDEC)E ERAGE BRS YET 
;BR_IF ERROR mY EXCEEDED 
;SEE IF wee CYL 


SEE IF “DIFFERENT TRACK 
:BR IF YES 
; SEE iF dd SECTOR 


F SAME PACK ADORESS 
SET NEW PACK ADR FOR PRINTOUT 





Cote UrUT £ torur- OnBeDS 


TEEEELOE LEE EE 
Pore é 


ee ee Re De De ee Pe Pee 
RVR PS 


Pee 
BURRESS SS 
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:07 MPBUF - SOFTWARE COMPARE DATA 
ERROR 115. . $TYPE NEW PACK ADRS 
ISS: NEG $REGIO | WORD NO. 
MOV R3, $REGL1 $6000 DATA 
00120¢ MOV -21R1),$REGI2 DATA 
OClele MOV SREG1O, $REGLY COMPUTE PHYSICAL ADDRESS 
CLR $REG13 
ROL SREGI4 
ROL $REG13 
oo1212 ADD PMA, $REG14 
ADC REGI3 
001210 ADD PMA+e, SREGI3 
MOV R1,SREGIS sGET VIRT ADRS FOR PRINTOUT 
001214 SUB $2; SREGIS 
ERROR 63 YPE GOOD AND BAD DATA 
142126 ert #8176, aSuR ieee DF ust 1 ERROR SHOULD BE REPORTED 
- PROCEED oe TH COMPARISONS 
les: TST RY :SEE WHICH DATA DESIRE D 
BNE 198 :BR T INCREBSING G DATA 
§ INC MEN NT 
188: TST SKT11 :SEE IF MEM MG 
BPL 20 ;BR IF 
BIT #817142,R1 :SEE IF OVERFLOW TO NEXT PAGE 
BEQ *BR IF NO OVERFLOW 
172354 ADD $200, 08KIPARE :INCR. PAR BY 4K FOR NEW PAGE 
BIC #8IT13,R1 :SET PAGE = & AGAIN 
208: DEC Re sDECR COUNTER 
BEQ 21 :BR IF DONE COMPARING 
INP &$ :CONTINUE COMPARING WORDS 
218: TST SKT11 :SEE IF MEM MGT PRESENT 
BPL 22$ :BR IF NOT 
177872 BIC #8170, a8SRO TURN OFF MEM MGT 
223: RESREG !RESTORE RO-RS 
RTS PC : RETURN 
s = ELLSLELSSESELLERSSAARSESSE SEES SHRLSSSRARESAARELSLEAAS LASLSARFELREELEE 
; #SETUPM - SUBROUTINE TO INIT PARAMS FOR NPR/MEMORY TESTS. 
© SERS SELALHERSLLESRSLESA LE SAAAELA LAL SRAALL LA LARS RELASRALARELEFE 
oono02 SéTUPM: MOV FC,P.CYLN(RS)  ;SET CYL r 
04 MOVB S‘P.SECT(RS)  :SET SECTOR 
909005 MOVB  FT.P.TRCK(RS) SET TRACK 
5 che FC) #624 ; SEE IF eM SHOULD BE SCALED DOWN 
poo002 MOV #624, P. CYLN(RS) ‘SCALE DOWN THE CYLINDER 
805576 2S: MOV sRWSUF, MA :GET MEMORY ADOR 
IST KILLOR ;SEE IF /EQROER CAN BE OVERLAYED 
ooss76 ADD #£000,MA t TEAVE ROOM TO SAVE LOADER 
g0557¢ 4S: BIC #3777. MA 





; RETURN 
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eMPBUF - SOFTWARE £ EOMPARE DATA 


p REENEM « THIG SUBROUTINE PERFORMS A SUBSYSTEM COMMAND, WHILE 
COMMAND 


REFNEM - TH OUTI 
t SREPEATEDLY ReF NCING a A MOREA STENT REROEY LOCATION 1760808 His 


ene SINCE. THE bus 1S. SiEveD FOR EC AT EACH NEN. TEME=OUT. 
Sat BATVER Bosom EE iz Bi, fust Be Se7 INTHE 
RRGMETER BLOCK GN ENTRY ONTAIN THE TIMING CONSTANT 

:SuNTCH REGULAY ES THE F PREGLENCY OF NEF TREPLRENCES., WHILE WAITING FOR 


; #COMMAND COMPL 
eeeetit mal Satie ecatiagee C CITaN ATAS OT Ta ee 
JSR PC, CTLOUT CHECK FOR (1C) OR (t2) KBD INPUT 
CLRB sé: :CLEAR THE DONE FL 
5k PC, STRCMD :ST ORE PREV AND CURRENT COMMANDS 
MOV RS'4s :SET PARAM BLK ADDRES 
MOV 820s, GsERRVEC : SET TIMEOUT VECTOR ADDRESS 
JSR PC.C!INIT :CALL DRIVER 
4$: . WORD 
6$: ISR PC, W.WTCH sCALL WATCH DOG 
TTB note :DONE SET ? 
BNE 26S :BR IF YES 
MOV P3.R4 GET COPY OF R3 
BEQ 12$ -BR IF TIMER = 
10S: DEC RG : DECREMENT TINER 
BNE 10$ :BR IF NOT DONE TIMING 
128: TST 38160000 ; REFERENCE NON-EXISTENT MEMORY 
ERROR 1 "NO NEM WHEN EXPECTED” 
20$: CMP (SP)+, (SP)+ ;RESTORE THE STACK 
228: BR 6§ “KEEP WAITING FOR COMMAND COMPLETION 
268: Hoy 86, SRERRVEC sep TORE TIME-OUT VECTOR 


5 ERELKEREELERELE EARLE EERE EEEE LEER REL ELE ALLER EAE REEA EAE RAR ASRS REE 
: RINCRMA - INCREMENT MA BY WORD COUNT IN P.WC(RS). 
+ ERE RERE EE EERE RAE REE RR ERR AEEE REESE AREER EERE EEE E REE FEEEEE EER EERE 


Hicrna: SAVREG ;SAVE RO-RS 
MOV P.WC(RS),RO GET WORD COUNT 
BNE 4g ?BR IF NOT 65,536(DEC) 
INC RI SET HI BIT 
BR 6S NUE 
ug: NEG RO GET TRUE WORD COUN 
63: CLC :DOUBLE THE WORD SBUNT TO GET BYTES 
ROL RO 
ROL RI 
ADD RO, MA :AOD IT TO COMPUTE NEW MA 
ADC Mate 
ADD R1,MA+2 
RESREG sRESTORE RO-RS 
RTS PC RETURN 
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8S19 
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000901 


oooco4 


000016 


003036 


000004 
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000034 





PART 7(1008) OS-OCT-76 10:59 PAGE 163 
eubour = Eortware compare bate : 4 


5 FRRRERERERESEEL REESE EEL ALER ER ALEE SAA HERLE AEP AASEE EASE EAE E EERE EEE 
#REDBSF - a FACTORY BSF INTO BSFACT, ANC READ SOFTWARE BSF 


#INTO BS 
{BEE monn 
. oe PC INITSS ;INIT THE §.S. 
CLRS 3 =Es-—« BP « ASH RS) :SET 22-SECTOR FORMAT 
MOVE BRODATA P. CHND (RS) ,SET READ DATA COMM 


MOV ese, P.CYLNCRS) get CYL = 


MOVB TREKS) TRACK 
MOV i ear : SET FACTORY BSF SECTOR LIMIT 
a ae 
NCB pera ee STARTING PRR ory BSF SECTOR NO. 
6S: MOV #-400,P.WC(RS) ;SET WORD COUNT FOR 1 SECTOR 
MOV e2SFacT.P.BALOCRS) ;SET BA FOR FACTORY 
Q$: MOV BS0SCHD/A-ABNL ;SET’ERROR HANDLER FOR BSF READ 
CLRB ss CFL :IN ERROR FLAG 
JSR PC. DRYCAL ?READ THE FACTORY BSF 
T57B 4=6 WCEFFLG :SEE IF ANY ERRORS 
BEQ 3 F NOT 


ADD #2, P.SECT(RS) CHECK NEXT SECTOR 
CMPB.OséP«S SECT(RS),R3 ;SEE IF LIMIT EXCEEDED YET 


YE 
108: aoe PC, REPSUP IGATHER STATUS FOR PRINTOUT 
ERROR Je 120. ;ABORTING- BAQ BSF READ 


PRG CAN’T PROCEED 
12$: MOV WbesnetT P. BaLOcRS) “SET BA FoR SOFTWARE RECORD 
MOVE  R3,P.SECT(RS) set's STARTING SECTOR NO. 
MOV #22. 3 T ¢2 SECTOR LIMIT 
TSTB = FORMAT ‘eer IF 22 SECTOR FORMAT 
BEQ 14$ BR IF YES 
MOY #19. .R3 ET 20 SECTOR LIMIT 
14s: MOV. —--a#BDSCHD,A.ABNL ; SET ERROR HANOLER FOR BSF READ 
CLRB  WCEFLG ;INIT THE ERROR FLAG 
JSR PC. DRYCAL :READ THE SOFTWARE BSF 
TSTB 43s WCEFLG :SEE IF ANY ER 
BEQ 16S : NOT 
ADD P.SECT(RS) ;CHECK NEXT SECTOR 
CMPB ? “erctiRS) R3  :SEE IF LIMIT EXCEEDED YET 
BLE 1a :BR IF NOT YET 
BR 10 REPORT ERR AND ABORT 
16$: MOV BERRHDL, A. ABNL ‘RESTORE ERROR HANDLER ADRS 
RTS PC : RETURN 


s THIS i ‘f RENORNAL DRIVER RETURN WHICH IS USED TO HANDLE 
ixP0S8 LE ERRORS IN READING BAD SECTORS. 
#ESE!HVRC!DTE! OPI! LOCK P.ER(RS) :SEE IF ANY READ ERRORS 
It A READ ERROR R OCCURRED 


TNE ERRHOL iD ie OTH 
4$: INCB WCEFLS ;SET ERR R LAG. 
JMP RETNML : TAKE NORMAL DRIVER RETURN 
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eMPBUF - SOFTWARE COMPARE DATA 
[prosegnensnnaepenvesuseustengeceer een aretea eT re raartan 


YPBSF 
ante THE LVL INDER., TRACK, BND SECTOR NO. OF EACH BAD SECTOR 
is, iste § SEPQRATELY, INA “teBLE OF OF OCTAL VALUES, FOR EACH OF THE 


s SHE RERRERARER EN EAERAEEEEEEESAAEAREREREAEA EEE SEER ERE ER ES EERE EEE 
tipasr: SAVREG ;SAVE RO-RS 
CLR INIT LIMIT 


l COUNTER 
CLR RY :INIT BSF FILE INDICATOR 
MOY #8SFACT+10,R0 : BORS oF pnt 6 IN FACTORY BSF 
TYPE  ,FACTB ee we BCT ORY 
TYPE  ‘BDSEC ile “BAD SECTORS” 
38: TYPE  ‘DHBO4] - ?TYPE “CYLNDOR TRACK SECTOR” 
TYPE SCRLF 
4$: ist {RO) SEE IF A SECTOR LISTED HERE 
TST Ri . : SEE IF FILE 1S. EMPTY 
NE 14$ BRI T EMP 
TYPE § ,NOFALS FN 
TYPE SCRLF ‘TYPE «CR>, <LF> 
BR 14g 
8s: MOV (RO)+,-(SP) GET A cYL NO. 
TYPOC TYPE IT 
TYPE SPACE2 : TYPE SEPARATORS 
HOW RO), R3 _ $GET TRACK AND SECTOR 
SWAB 3 :GET THE TRACK NO. 
MOV R3,-(SP) 
TYPOC : TYPE IT 
YPE SPacke : TYPE SEPARATORS 
MOVB tRo) :GET SECTOR NO. 
MOV 5° 8B 
TYPOC ; TYPE IT 
TYPE SCRLF 
TST {RO)+ ;INCR THE POINTER 
INC R1 :INCR THE COUNTER 
CMP’ sR #126. :SEE IF LIMIT REACHED IN THIS FILE 
BLT 4g :BR IF 
14$: TST RY ; SEE IF BOTH FILES TYPED YET 
BNE 19 °BR IF NOT YET 
INC RY :SET INDICATOR FOR SOFT. FILE 
MOV #BSSOFT+10,RO  ;ADRS OF DATA IN SOFTWARE @SF 
TYPE SOF TBS : TYPE MSOF THARE 2 AD SECTORS : 
BR 33 :GO TYPE SOFT 
18$:  RESREG ;REST ORE RO-RS 
RTS PC : RETURN 


2 o RESSSSRSEEELE RELA SRSA ERE RAS LASASLSLRSRERALA SSAA ARE LAFLA RAF LAAEFE 
t SEIN NMEM - COMPUTE NO. OF WORDS XFERRED ON PARTIAL XFER 
*#(TERMINATED BY BSE ERROR), AND STORE IT IN WOSXFR. 

PEELE OETT SET ET TTT ET ELT ETT SESTETETETETTSTESOT SSCS SCT OTST TTT TTT 
binMEM: SAVREG :SAVE RO-RS 
MOV P.CYLN(RS),RO  ;GET ORIG. CYL NO. 
MOVB P.TRCK(RS):R1 ;GET TRACK NO. 
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Odd ONO00 
VOR LER PNG SMG LS 
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116502 


00004 
009030 
000027 
000026 


040100 


COSsS62 


o0000e 


tg “wppacnte soRiT SECT OR NO Wie ¢ 10 
é§: hp BF ocyL CRS) ,RO icone ake AS “pro ENT CYLS 


BNE 
CMPB P.OTS+1(R5),R1 tEOMPARE TRACK e 


BNE &$ ;BR EQUAL 

CMPS P.OTS(RS),Re ;COMPARE SECTORS 

BEG 12$ ;BR IF ADRS ARE EQUAL 
8$: INC R3 ;INCR SECTOR COUN 


JSR PC, INCRSC :INCR PACK ADRS BY 1 SECTOR 


zs: Slee fi Sastre” mS SPSS seeseen 


MOV R32, WOSXFR 
RESREG Beer ORE "RO-R5 
RTS PC : RETURN 


5p RRRARER REESE EEE EA ER AES REREEERE AEE REEL EALALAS EASES ES ELER ELLE EE 
SEMA - INCREMENT PACK ADDRESS TO NEXT SECTOR 
a THe YLINDER IS PASSED AND RETURNED IN RO, TRACK IN R1, AND SECTOR 


jAeaesbaneaesnansaesnanecseseseseeseaeneeseseaceneneaneneaeaess 


ann MOV #21 a ae IMIT 
isi FoRiaT CTOR FORMAT 
MOV #19. ,R4 ee TEECTOR LIMIT 
4S: INC Re !INCR. SECTOR NO. 
CMP Re, R4 :SEE iF SECTOR LIMIT EXCEEDED 
BLE &§ :BR 1E NOT 
CLR R2 
INC RI py eRe N 
CMP RI, #2 iF TRACK Cen EXCEEDED 
BLE a; 
eLR RI ie TACK 0 
INC RO ; INCR. CYLINDER NO. 
bS: RTS PC : RETURN 


: pT MER NID TRANSFER PARAMETER UPDATE SUBROLTINE 

SkMy DXFR - MID-TRANSFER PARAMETER UPDATE ayROU TIN 

; #THIS Su ROUT! UPDATES PMA, PMA+ REGS UNIBUS MAP.P.BALOCRS), 
: *P. BAHT ( ), IN PREPARE ION TO RESUME A TRANSFER 

t STERMINATED’ BY A BAD Ho ee TOR ER ERR 
preci eanti rd BE nT lh cee EET: SRO 


htDXFR: SAVRE :SAVE RO-RS 
R PC, FINMEM :COMPUTE NO. OF WORDS XFERRED 
MOV P.ACYL(RS) RO :GET cy L NO 
MOVB P.DTS+1(RS3,R1 GET TRACK NO. 
MOVB -P.DTS(RS),Re ; GET SECTOR NO. 
JSR PC, INCRSC Boater PACK ADRS TO NEXT SECTOR 
MOV RO'P.CYLN(RS)  :U INDER 
MOVB  RI-P.TRCK(RS) UPDATE TRACK 
MOVE Re-P.SECT(RS)  :UPDATE SECTOR 
MOV WOSXFR, RS :GET NO. OF WORDS XFERRED 


SEG 0164 
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D2RENC.P11  OS-OCT-7& 10:07 MPBUF - SOFTWARE COMPARE DATA 
25 Baie 2 pane goog AD #400, R3 :SKIP BAD SECTOR 
lz AD R3,PWC(RS) :UPDATE P.WC(RS) 
oveee 004 CLR : :GET BYTES XFERRED 
o40226 eats ROL 
8688 040230° 060337 o0sé02 ADD 3 PMA ;UPDATE PMA, PMA+2 
8689 049234 005537 O05604 ADC PiRee 
8690 O40240 060437 005604 ADD PMA+2 
8691 940544 613765 005602 000010 MOV Pr P-BELO(RS) ;UPDATE P.BALO(RS) 
S692 O402S52 013700 OOSED4 MOV RO 
S693 O40256 042700 177774 BIC priate RO 
8694 oO40262 150065 00007 81S8 Hi P.BAHI(RS)  ;UPDATE P.BAHI(RS) 
8695 O40266 605737 OSb2e4e TST stil :SEE IF MEM MGT 
Beas Sunes | Apaoae eFC 
5697 oH 74 37 6030334 7S , PREPAR ;UPDATE MEM MGT AND UNIBUS MAP 
dese 300 04410 168: RESREG *RESTORE RO-RS 
8699 040302 000207 RTS PC : RETURN 
8700 
870] 
8703 : + SESSSSLREFLSE HAE SASEHRA SHR SELL RARE SKSLAE LEE RALLFREAARFEAAAAALEFRASS 
§704 t isvp PRMS - SAVE INITIAL PARAMETERS FOR TRANSFER 
8705 ;#GTPRMS - RESTORE SAVED TRANSFER PARAMETERS 
8706 = LELSESESHKAE AER ELE KASS AAERA SLE RA SELES LE LLE KES E EL ELE AREAL EAALLHSES 
07 O40304 104407 &YPRMS: SAVREG ; SAVE RO-RS 
0206 Ole po2b22 MOV #PARMO+2,R0 :ADRS OF PARAMS 
5779 040312 612701 oOoss550 MOV #SAVPRS, R1 :ADRS OF CAVE AREA 
8710 O40316 O16537 OO000l2 oossee MOV P.WC(RS3,WOSXFR ';GET WORD C 
8711 005437 9055 NEG WOS :MAKE IT POSITIVE 
8712 040330 012737 O&4640 oDsE02 MOV SRWBUF , PMA ?INIT PMA TOR 
13 040336 O0S6 CLR PMA+2 :INIT PMA+2 TO O 
8714 o40342 737 005534 TST PATRN :SEE IF DEFAULT DATA TEST 
8715 O40346 001414 BEQ GTO BR IF yes. 
8716 O9402S0 013737 poss7& oOsEOe MOV ma, PMA :SET PMA=MA 
8717 O04 013737 OO05600 905604 MOV nase, Prat :SET PMA+2=MA+2 
8718 040364 os 8 GTO 
8719 O04 104407 GTPRMS: SAVREG ;SAVE RO-RS 
8720 040370 0127 oss MOV #SAVPRS RO ; ADRS OF SAVE AREA 
8721 040374 012701 O02622 MOV sPARNOFE, Rl OF PARAM 
ee oO40400 O01 00) GTO: MOV “Fa cpr FOR S WORDS 
8723 O40404 Olde] &$: MOV cBOD, (R1)+ ; MOVE A WORD 
24 DEC SEE IF DONE YET 
8725 O40410 0013 NE E§ :BR IF NOT YET 
8726 O4O4l2 194410 RESREG ; RESTORE RO-RS 
8727 040414 TS PC : RETURN 
8728 
B75c 
es s © LELKLALSEREA SL SARAH ERLE LALA LSA SAA REA AREA ARAA RELA AAALAAAL RAZA AERE 
§7 ‘LTRNSFR - PERFORM A DATA TRANSFER, AND HANDLE BAD SECTORS 
8733 sSENCANTER THE COMMAND MUST BE SET IN THE PARAM BLK. THIS SuB- 
8734 *ROUTINE IS SUBSTITUTED FOR DRVCAL WHEN BAD SECTORS MUST BE HANDLED 
87 Te gma = RT Reena a yr cg * ++ negates 


3 
8726 O4O41E OL044E 
8737 O40420 005004 
8738 O404ee 105037 003131 


;SAVE_ RY ON STACK 
;CLEAR BSE ERROR INDICATOR 
INIT WCE ERROR FLAG 10 0 


cee MOV R4,-(SP) 
CLR 4" 
CLRB  WCEFLG 


SL a 


& 

' 

~~ 
oo 

' 
“nnd 
ae 
—or 
7 
oO 


as-ort=76 


An _—_ > VERIF. ; PART 


40774 
100 


Bpaabe 


040144 
000012 


040366 
040304 
OS6246 


030334 


001266 


000004 
O01e64 


001302 
174377 
001303 


o0s474 


apea4 


001264 


001302 
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eMPBUF - SOFTWARE COMPARE a4 


4$: ISR PC, DRYCAL ;PERFORM THE S$.S. FUNCTION 
eI BLCERR, RECODE see IF ace ERROR OCCURRED 
MOVB 1 WCEFLG :SET Lice ERROR FLAG 

cs: gir BESERR, RE RECODE  ;5EE IF BSE ERROR OCCURRED 
INC Fa TINCR BSE ERROR INDICATOR 
ISR PC, MIDXFR :UPDATE PARAMS TO RESUME XFER 
TST PWCCRS) :SEE IF ENTIRE XFER IS COMPLETED 
SNE 4u§ :BR IF NO 

63: is! RY ; SEE IF ett’ BSE ERRORS OCCURRED 
ISR PC, GTPRMS PRES ORE ORIGINAL PARAMS OF XFER 
JSR PC’ SVPRMS ‘RESTORE WOSXFR, PMA, PMA+2 
tet sxtit sSEE IF IF MEM MGT PRESENT 
ISR PC, PREPAR ‘BSCPARE MEM MGT AND U.M. 

9g: MOV (SP)+, RY *RESTORE RY 
RTS : RETURN 


Laegneneeeee ate tit tie 
‘STTL SEARCH BAD SECTOR TABLES ROUTINE 

:¥THIS ROUTINE RET URNS A LIST OF BAD SECTORS FOUND IN 

:eTHE SPECIFIC TABLE (BA "s SECTOR SOFTWARE OR BAD SECTOR FACTORY) 
:#FOR THE SPECIFIC CYLINDER AND TRACK DESIRED. RO AND R1 MUST 

; #CONTAIN THE CYLINDER AND TRACK, RESPECTIVELY. 


tSTHE LIST_OF_BAD SECTORS IS FOUND ON THE STACK WHEN THE ROUTINE 

; #RE TURNS TO THE CALLER. THE FIRST ENTRY ON THE STACK WILL BE THE 
*#NUMBER OF BAD SECTORS FOUND FOR THIS CYLINDER AND TRACK. 
Prorreererererrtt rere ere meyer eter tre err eeyertePert rn eter 


agneset MOY Re, STNPe 
MOV 


R3'STMPS 
MOV Res3] STMPY »STORE RETURN CONTENTS OF RY 
MOV (RY) Fe -GET ADDRESS OF BAD SECTOR TABLE 19 SEARCH 
MOV (R4)+, $TMPI ;SETUP FOR LENGTH OF BAD SECTOR TABLE 
ADD pla SIMPL 
CLR R3 CLEAR R3 FOR COUN 
ADD #10,R2 :SET Re FOR BO FeTER TO CYLINDER ENTRY 
18: TST (R23 TEST IF ALL ONES 
BMI c$ t YES- DON 
CMP RO, (R2) :TEST IF BAD SECTOR IN PRESENT CYL 
BEQ 3$ ;YES-GO CHECK TRACK 
ADD #4, R2 ‘ELSE BUMP POINTER 
CMP Ro: STMP1 TEST IF OUT OF TABLE 
ei eee 
2S: TST (R2)+ RACK CHECK - PUT POINTER AT TRK/SEC BYTE 
MOV (Re) ,STMP1O ye TRK/SEC WORD 
BIC 8174377 STMP1O :CLEAR ALL BUT TRACK 
CMPB 0s STMP'10+1,R1 s CHECK IF BAD SECTOR IN THIS TRACK 
BEQ 4§ YES - GO PUT SECTOR NUMBER ON STACK 
TST (R2)+ ‘ELSE BUMP POINTER TO NEXT CYL WORD 
BR 1$ :G0 TEST NEXT CYL 
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SEARCH BAD SECTOR TABLES ROUTINE 


4g: INC R2 ;BUMP BAD SECTOR COUNT 
MOV (Re)+,-(SP) :PUT TRK/SEC WORD oN STACK \ 
BIC e177700,(SP) T SECTOR NUMBER 
Of 1$ Q CHECK REST OF FI 
cs: MOV R3,-(SP) *EXIT - PUT NUMBER OF BAD 
MOV STMP2 Re SECTORS ON STACK-RESTORE 
MOV STMPS.R3 REGISTERS 
MOV simpy, -(SP) :PUT RETURN ON STACK 
RTS RY : RE 


[egy 1 a eee 
TTL BAD SECTOR CHECK ROUTINE 
S ROUTINE WILL SEARCH BOTH TABLES TO DETERMINE IF A 
D. IF THE SECTOR IS LISTED IN THE 
; ReLES THe ROUTINE SET ” FLAG AND RETURNS. IF THE SECTOR 
815 LISTED THE FLAG IS RESET. , 
© FLLRALRE SESE SHALL ALE SERA RELA RAL EAE LALLA HASSLE SLES RA TLELFELAES 
basRCK: SAVREG 


MOV #BSFACT is fae TABLE 19 SEARCH 
2s: ISR R4, SRHTB 
18: . WORD : TABLE ADDRESS GOES HERE 
MOV (SP)+,R3 T NUMBER OF BAD SECTORS, IF ANY 
BNE iT ANY, GO TEST WHICH O 
7$: CMP 1$, #BSSOFT ‘ELSE TEST IF OTHER TABLE ALREADY SEARCHED 
BEQ 33 IF YES-EX xIt 
MOV SBSSOFT,1$ :SET OTHER TABLE FOR SEARCH 
BR :G0 SEARCH IT 
33: BIC SBADSEC,RECODE CLEAR BAD SECTOR BIT 
4S:. RESREG 
RTS PC :RETU 
ts: CMP (SP)+,R2 THIS Rector IN TABLE? 
BEG oF *YES-GO SET BI XIT 
DEC R3 :DECREMENT BAD SECTOR T 
BNE &$ :IF NOT ZERO-CHECK NEXT ENTRY 
BR 7§ ELSE GO SEARCH OTHER T 
9g: BIS #BADSEC,RECODE :SET BAD SECTOR BIT 
9g: DEC R3 :CLEAR STACK OF OTHER BAD SECTOR 
BEQ 4§ : 
TST (SP)+ 
BR 93 EXIT 
. Se gar Sg aereesrraec (ope ee 
ant ALL iriver ROUTINE 


ENTRY ish P 
{#RETURN RTS PC 


:aTHIS ROUTINE IS USED TO ad $A A SUBSYSTEM OPERATION BY 
*CALLING THE DRIVER. THE TER BLOCK MUST BE SET UP 

xBY THE CALLER AND RS MUST POINT TO THE PARAMETER 

; #BLOCK WHEN THE ROUTINE IS CALLED. 


tSTHIS gr tts warts FOR THE OPERATION TO BE ge NE 
*#WHILE WAITING THE WATCHDOG TIMER IS CALLED TO PREVENT 
; #SILENT DEATH IN CASE THE SUBSYSTEM DOES NOT PROVIDE AN 


RVCAL 
WITH RS POINTING TO PARAMETER BLOCK 


Bee yy 


e-o-- 
ro 


eeeeeeteseeeeeseeze 22a 
INE REE E See ES 


R28 


eo 
onrqgo 


me Sy are ne ore 
Hishrtub tite itt 


ah) 
Roe FG 


2 


Oh ee bs ht bs be Bo bo ho 9p 
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10:07 ALL ORIVER ROUTINE 
;#INTERRUPT. THE TERMINATION HANDLER ROUTINES WILL SET THE DONE 
-#FLAG WHICH KEYS THE ROUTINE TO RETURN TO THE CALLER. 
jjeunsesansnensnsanunenunsonsontenteatesntaneeatoabesiesseessesss 
034040 JSR PC, STALL ;PERFORM A STALL IF REQUIRED 
035640 SR PC’ CTLOUT ‘CHECK FOR (¢C) OR (t2) KBD INPUT 
003113 CLR8 DONE :CLEAR DONE FLAG 
003127 CLRB  - DRNAFG :CLEAR DRIVE SiEZED BY OTHER PORT FLAG 
041110 ISR PC, STRCMD :STORE PREV AND CURRENT COMMANDS 
041030 MOV RS; 4g :GET PARAM BLOCK ADDRESS 
051120 ISR PC; C.INIT :CALL DRIVER 
4§: WORD :P.B. RODRESS GOES HERE 
045470 63: ISR PC W.WTCH :CALL WATCH DOG 
093113 TSTB = DONE SOE erst 
BEG 6$ NO-LOOP 
003127 TSTB  DRNAFG :SEE IF DRIVE WAS SIEZED BY OTHER PORT 
BEG 128 :BR IF NOT 
003113 CLRB ss OONE ‘CLEAR DONE FLAG 
003127 CLRB §-ORNAFG -CLEAR DRIVE NOT AVAIL FLAG 
041072 MOV RS, 8S :GET PARAMETER BLOCK ADDRESS 
051120 ISR PC;C. INIT RE-ISSUE THE COMMAND 
gS: WORD :P.B. RODRESS GOES HERE 
045470 10$: JSR W.WTCH CALL H DOG 
003113 TSTB BS Sar D0 NE eer ? 
BEQ 10$ NO - LOOP 
128: RTS PC : YES-RETURN 
: SESSA SRE ELLER E ELE KE LEK AKSH ELAS SLEL ASAE A SLL LSZ AALS LAAASHFRAZEERE 
iste RCMD - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS 
= SELES SSE ELLA AER KALE SHAS SKA ALERA SES RSE RELL AA LARA AA AARAAATEF EE 
7 StRCMD: SAVREG ;SAVE RO-RS 
pos222 MOV #PRVCMD,R1 ADDR OF PREV COMMAND STORAGE 
005236 MOV #COMSTR; RO !ADDR OF CURRENT COMMAND STORAGE 
;STORE PREVIOUS COMMAND ; 
MOV (RO)+, (R1)+ 
MOV (RO)+) (R1)+ 
MOV (RO)+) (R1)+ 
MOV (RO)+, (R1)+ 
MOV (RO)+; (R1)+ 
MOV (RO)+, (R1)+ 
003134 STB UBMPRS SEE IF, UNIBUS MAP PRESENT 
o0S260 o0s2s4 MOV CRMPHO,PRMPHO STORE PREV U.B. MAP REG O 
005256 o005252 MOV CRMPLO’ PRMPLO 
170202 905260 MOV gsnAPHOO, CRMPHO ;STORE CURRENT U.8. MAP REG 0 
170200 005256 MOV on APLOO; CRMPLO 
“STORE CURRENT COMMAND 
005236 4g: MOV #COMSTR,R1 
MOV (RS)2, (R1)+ ;RS POINTS TO DRIVER PARAM BLK 
MOV (RS)+) (R1)+ 
MOV (RS)+' (R1)+ 
MOV (R5)+)(R1)¢ 
MOV (RS)+,(R1)+ 
MOV (RS)+; (Rlj¢+ 
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ZRENC.P11  OS-OCT-76 10:07 CALL PORIVER ROUTINE 

8907 041214 104410 RESREG :RESTORE RO-RS 

esos O4l216 900207 RTS PC : RETURN 

9909 ; 

310 

Baid = SSSESESESERSSSL SESSA RS SESSA LESSAASSARELAFELAAASLLSRFLEASEFRERELFEE 

8613 L DRIVE ERROR FREE RETURN ROUTI 

sui4 i HIS ROUTINE IS CALLED BY THE DRIVER WHEN NO ERROR 

esis waS BEEN DETECTED IN THE OPERATION. THE ROUTINE SETS THE 

Ssié : SOONE FLAG THAT IS TESTED IN THE DRIVER CALLING 

8917 : ROUTINE. 

esis pares ear? DOE nceT THE DOME FLAG 

5615 041220 152737 000377 002113 EARFRE NE THE DONE 

8520 O41226 032737 1090000 coSs474 ain SANYBER, RECODE TEST IF ANY DATA ERROR 

$92] oyiess 051403 BEG 2 *IF NO - DO ER ROR | RECOVERY PRINT TEST 

8925 041236 105 00311 CLRB = ERRCNT : CLEAR ERROR COUN 

8923 O41e42 000413 BR 

8924 041244 105737 o03116 2S: TST8  ERRCNT CHECK IF ANY ERRORS HAVE OCCURRED 

8925 O41250 001410 BEQ 1$ !NO - SKIP TO EXIT 

8326 041252 005037 001174 CLR SREGS 

8927 041256 113737 003116 001174 MOVB ERRCNT,SREGS § ;GET RETRY COUN 

8958 041264 104101 ERROR 101 :PRINT RETRY SN CCESSFUL MESSAGE 

8999 041266 195037 O03116 CLRB —— ERRCNT :CLEAR ERROR COUNT 

8930 p4ieve 005037 005474 1S: CLR RECODE :CLEAR RECOVERY FLAGS 

8931 O412e76 RTS p 

e332 » gb 5 40H aH 

9933 ‘aBTTL TYPE ERROR ROUTINE 

9934 ; KENTRY JSR PC, TYPERR Y 

e335 j RETURN - se 

8937 SATHIS ROUTINE USES THE “ITEM CONTROL eyTE” (SITEMB) TO DETERMINE WHICH 

863g ERROR IS TO BE REPORTED. IT THEN USES THE “ERROR TABLE” (SERRTB) 

g339 sHENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING 
;#T 

6941 Se eaten Can ee ee ee 

S942 041300 104407 +/PERR: SAVREG 

e943 041302 105237 003120 ie ORVERS sINCR ERROR COUNT FOR THIS DRIVE 

8944 041306 632737 GO0DC40 ooseE70 BIT #BITS,cS . :SEE IF DRIVE SHOULD BE DROPPED 

go45 :__IF ERROR LIMIT EXCEEDED 

8946 041314 O01412 BEG 9g : N 

8947 041316 123727 003120 oo0024 CMPB  - DRVERS, #20. ;SEE IF 20(DEC) ERRORS EXCEEDED 

8942 041324 OO2406 BLT 9g ‘BR IF NOT 

8949 041326 105037 003120 CLRB = ORVERS :CLEAR DRIVE ERROR COUNT 

8950 041332 104401 011103 TYPE DROPDR :TYPE “DROPPING DRIVE” 

8951 041336 000137 017470 IMP NEWORV :PROCEED TO TEST NEXT DRIVE 

e952 041342 032777 O20000 137570 9S: BIT #SW13,dSWR =  ;INHIBIT ERROR TYPEOUTS? 

8953 041350 O0140e BEG 6$ BR IF NO 

8954 041352 000137 O41756 « IMP 205 

g955 041356 o05000 6S: CLR RO iCLR_RO FOR BRROR NUMBER 

8956 O41360 o05005 CLR RS sINIT INDENT INDICATOR 

8957 041362 005105 COM RS 

8958 041364 113700 001114 MOVE  § $ITEMB,RO sENTER ERROR NUMBER 

8959 041370 005300 DEC RO [FORM INDEX FOR ERROR TABLE 

8960 041372 006300 ASL RO 

8961 041374 006300 ASL RO 

6962 041376 


006300 ASL RO 


B14 
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ot ‘ s-. “— $ is ale see wali 
| OZRENC.P11 © OS-OCT-76 10:C +yBE ERROR ROUTINE 
| 8963 41400 62700 901490 1S: ADD «—sBSERRTE.RO =; FORM_AODRESS OF ERROR ENTRY 
es64 O4i404 512037 O4i4e4 may (RO}+, 26 :GET EM POINTER 
| g@es sig iesst aa. Reo 3. [BRANCH IF THERE ISN’T ONE 
- | 7) ae ieLF 
| Ears 1326 10480) seghs TYP ' kestee : TYEE “se” 
| 836s 14 104401 TYPE »TYPE ERROR MESSAGE (EM) 
ea sites ssa e WORD 0 EM POINTER $0 5 HERE 
75 Bwi4se 81 o41602 5 ay TRU)+, 4§ iGET DH SINT 
857] 341432 001467 BEQ :BR IF THERE ISN'T ONE 
Se 1438 108801 001315 TYPE + $C8LE 
67 1440 10440] 7 TYPE TMSG ;TYPE." ‘TEST 
8574 O4ise4 Oi374e Boll MOV gre thn - (SP) °GET TEST NO. ON STACK 
| §S75 O414SO 104403 TYPOS - TYPE IT 
| 8876 Oel4é2 ode .BYTE 2 :2 DIGITS 
| 897 Blses BYTE 6 :SUPPRESS LEADING ZEROS 
| 8978 1454 ios OlM11 TYPE , CRELF 
e373 Rie 3327 019000 137452 eit BBIT12, 254A sREPORT OB DESCRIPTION ONLY ” 
 =8SE] 1358 104401 O&2026 T ,DHIOS ‘Pe F APREVIOUS COMMAND : 
8982 O41474 | 1 901315 TYPE , SCRLF 
| 8983 p4i50 104401 062220 a3 +PH1O1 +10 ; TYPE PREV COMMAND HEADER 
«© €985 «O41504 1D440l OO13I5 T SCRL 
| 8985 041510 012701 9000 MOV bb RI ;SIX COMMAND VALUES 
| B@86 041514 Ole7o2 O01236 MOV 8SREG2E, RZ :STARTING ADOR OF PREY CMND VALUES 
8987 O41520 O12246 308: MOV (R2)+, SP) :PUT A WORD ON STACK 
| 8965 41532 jO4402 TYPOC : TYPE IT 
ese p4ibes O440l o13425 SPACE2 : TYPE SEPARATORS 
8990 041530 30520] ¢ Rl :SEE IF 7 VALUES TYPED YET 
Be Ris BSE pu eal: 
£963 bateac 104401 013425 T *SPACE2 ; INDENT 
| 99H oH iSH4 104901 2277 TYEE + H1O2 : TYPE HOR FOR BA DATA 
EB = BatzES iea33 Boaahe type BE ; INDENT 
£997 O41560 Cl2246 MOV [R2)+,-1SP) E 
BSc ~O4lSe2 104402 TYPOC : TYPE PREV. HI BA BITS 
2999 041564 10440 oases TYPE SPACE2 
| $000 041570 Ol1e4¢6 MOV tR2),-(SP) 3 
$001 O41572 04402 TYPOC ; TYPE PREV. LO BA BITS 
«$002 O41E74 «IO44OT o1s4il TYPE  ,CRELF 
| $003 O41600 194401 TYPE -TYPE DATA HEADER 
' $004 O41602 00000 4$: .WORD O :DH POINTER GOES HERE 
| $005 O41604 104401 001315 TYPE $CRLF 
3006 p4ibig 005 CLR RS sINIT INDENT INDICATOR 
$007 O416] 010000 137320 SS: BIT #81712, ISKR :REPORT DESCRIPTION ONLY ” 
S096 O41620 O0l0se BNE *BR IF YES 
«$008 ~O41eee 012001 MOV (RO)+,R1 :GET DT POINTER 
Si; balese Sisoee ee’ | ie RS BP nteee We NOE 
$012 Satesé fi MOV (RO)+’R2 STORE: NunBeR R OF DH’S 
$013 41632 112003 108: Nove (RO)+,R3 :GET & ST ORE NUMBER OF DATA WORDS 
9615 sess 5720 131 (ROJ+" :BUMP PAST FORMAT WOR 
sois o4ie 7 TST R3 TEST IF ANY pata FOR THIS HEADER 
SOiE O41640 001417 BEQ 14g - SKIP DATA PRINT 
S017 O41642 005705 TST RE Me IF SHOULD INDENT 
Stie S4le44 oe BNE ‘BR IF NOT 





poe ee 





= 21-DZREN-C = RKGLILRKOG SUBSYS. VERIF, : PAR MACYLL 27(1006) OS-OCT-7&6 10:59 PAGE 172 SES 0171 
DERENC.P1L | OS-Oct-76 10:57 tyeE PRR ROUTINE | 
S019 O41e4e 10440] O13425 TYPE spAcEe hag 
aa less 813146 118: MoV StRI}+,-(SP) UT FIRST DATA WORD ON STACK 
Sel O41654 1d440e TYPOC 
ig58 33 5 Mm TA WORDS 
> O41660. 3 128 
6 1e62 104401 o13425 TY SPACE TYPE SEPARATORS 
so Biers poe rae 128 7 Ye S Eee re com cLF) NEEDED 
g BIE ais 001315 ees, riot fr i Nef 
$029 041700 aesei 48: D&C fe MORE bess 
a3 Baioos is 3 O41 736 18s ate tie ts :NO-BRANC EDM NT 
e é H ; . Pr . ad 
| ze reat 108715 fete tRo) HSEE OP an Por TEE oe 
| 33 Miz! 1004 NE $ :BR I , 
S034 041714 104401 001315 YPE SCRLF :SKIP EXTRA LINE 
235 | 941720 CLR - ;RE-INIT TNOENT INDICATOR 
38 Bir } 345: an BE 3¢ COMPLEMENT INDENT INDICATOR 
$032 O41726 901002 BNE 36$ :BR IF NO INDENT REQUIRE 
| $039 o41730 104401 013425 T , SPACE2 : INDENT 
| $090 041734 104401 us: 7 > TYPE DH 
$04] 041736 o00000 iss: .WORD 0 :DH POINTER GOES HERE 
ans 1 133301 001215 we SCRLF 
$35 1744 10571 TST tRO) ; TYPE @ DT? 
| $044 04174 001331 SNE 10$ : YES-BRANCH 
ss p41 756 See700 o000ce ADD 82, RO INCREMENT DF POINTER 
SOME 041754 000751 & aS 15¢ :SEE IF END OF DOF BLOCK 
| $087 O4175— 104410 208: RESREG 
| $046 041769 O00207 RTS C 
} So4s « SSESSSSSEFSSSSSESSSSRESSSSSSESLSERELSLELASAALSLESAFALSELAESRELREFS 
, $050 “SBTTL CONTROLLER ERROR REPORTER ROUTINE 
| $051 : #ENTR JSR PC, CONERR 
| ze {RETURN R 
9555 t STHIS ROUTINE DECODES THE CONTROLLER ERROR WORD AND 
| $085 #REPORTS THE APPROPRIATE MESSAGE. HE RKELL REGISTERS ARE: 
3056 #RETRIEVED FROM THE RKG11 AND PLACED wat THE PAR METER 
257 ; #BLOCK HIS. IS DONE BECAUSE PARM O MAY NOT BE vee Ie 
$oss : ea nt thee Wen coe ee 
| 066 oO41762 13307 AANERR  BAVREG : SAVE RO-RS 
| $061 O41764 152737 000377 003113 ISB. 8377 :SET DONE FLAG 
_ $062 041772 105237 903116 INCB ERachte j INCREMENT ERROR COUN 
«8063 «041776 ~004737 O44712 ISR PC. TOPROC *LOAD RK REGS INTO Shecs 
«$064 O42002 032737 90000! 003042 BIT eBIT0,E.CONT =; ERR Or 
| 9065 042010 od0l4de BEG 1$ : NO-BRANC 
2068 petie 104064 ERROR 64 : CLEAR SONT DID NOT CLEAR ERROR 
} é 
| $68 42016 032737 conde oozO4e 1: BIT #BIT1,.E.CONT  ;ERROR 1? 
8965 O4e0e4 001402 BEG 23 : NO-BRANCH 
370 o4 104055 ERROR gS !NO ATTENTION IN ATTENTION SUM REG 
9972 Sa5539 ooo785 o00004 ooz042 2s: BIT 8B1T2,£.CONT ; ERROR 2? 
| $073 O42040 001407 BEQ 0-BRANCH 
3074 O42042 105737 003127 TST ORNAFG ite IF DRIVE WAS SIEZED BY OTHER PORT 
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DZRENC.P1l  OS- a & 10:07 tohTROLLER ERROR REPORTER ROUTINE : 
| SO7S O4204— 0014 BEG :BR IF NOT 
378 36 us 003130 INCE bE ccy :SET FLAG TO RE-ISSUE COMMAND 
9677 O4s054 15S: ERROR 66 ;UNSOLICITED ATTENTION 
aece ness SR a 
$6; 532737 000010 o0s042 3S: SIT 8SIT3,E.CONT  ;ERROR 3? ie idl 
| $086 O4s066 i452 BEQ 4 :NO-BRANCH S 
38 oe? ERROR ef [UNEXPECTED DATA TYPE ERROR 
$083 737 900020 oco3042 4s: BIT #8I1T4,E.CONT  ;ERROR 4? 
$084 O4elo2 O01402 BEQ $$ : NO-BRANCH 
soes sei 08 104070 ERROR 70 SATTENTION DID NOT RESET WITH CLEAR 
$086 42106 33 . gs 7g : 
$087 42110 737 o0004O O03042 SS: BIT s2I1TS,£.CONT ; ERROR S 
O42116 OO14 BEQ 6§ 
$083 042120 104071 ERROR 7} Pr Y$ REAR DIDN’T CLEAR DRIVE ATTENTION 
| $050 O42122 do0425 2 7§ 
| $0391 O42124 032737 9S0D400 OO3042 é8: BIT #8178,£.CONT 
$062 O42132 001401 BEG 2 . 
$053 O42i354 1 ERROR 72 ;DATA LATE WHEN UNLOADING HEADER 
8094 042136 032737 001000 oozo42 és: BIT 881T9,£.CONT 
309s 042154 001401 BEG 35 3 
| $95 Oel¥e 104073 ERROR 73 ;CONTROLLER ERROR DURING DRIVER SERVIC 
| $097 O4e150 002000 o02042 9s: BIT #8IT10,£.CONT 
, $098 O42156 001401 BEG 10$ 
8099 42160 104074 ERROR 74 sDRIVE DETECTED PARITY ERROR 
| 9100 O42162 032737. 100000 9032042 108: &IT s8I1T15,£.CONT 
| §101 042170 O01401 |. EQ 11$ 
$102 «042172 104 ERROR sMUL TIPLE DRIVE SELECT 
| $103 O42174 104075 11$: ERROR 75 :UNDEFINED ERROR 
| $109 O2176 005037 oca04e 7g: CLR E. CONT :CLEAR CONTROLLER ERROR WORD 
| $105 O4e202 000137 O44512 IMP BSNRTY -GO DO RETRY 
S106 “ « EESEEKEEEEREEEEE REE REESE EERE EEE EEEEE ESAS RE EE SEAS EEE EELS REESE ES ES 
| $107 ‘SETTL REPORT. SUPPORT ROUTINE 
| §10¢e s#THIS ROUTINE LOADS ALL THE PARAMETER BLOCK DATA TO BE REPORTED 
| $109 *INTO THE PROPER TEMPORARY REGISTERS FOR REPORTING. ALL THESE MAY 
$116 "SNOT BE INCLUDED IN THE REPORT, BUT THEY ARE LOADED ANYWAY. 
| $111 942206 REPSUP: 
| $112 O42206 104407 SAVREG 
| $113 0422106 006037 oos476 CLR ERRCOM AR ERROR COMMAND STORE 
| $114 042314 116537 900001 005476 MOVB  -P.CMND(RS), ERRCOM’s ER RE COMMAND START VALUES 
| 9115 012700- 001162 MOV 8$REGO, RO ;FOR REPORTING 
SL16 O42226 016520 000 MOV PCYLNIRS) , 
| $117 O42232 116520 900005 MOVB OP; TRCK(RS), (Ro) 
/ S118 O42536 165030 CLRB = (RO) + 
| $118 042240 11E530 ogo004 MOVB P SECT(RS), (RO)+ 
«$120 «O4ee44 106030. | CLRB 3s (RO) + 
| $121 Odee4—e 06525 oo0012 MOV P.WC(RS), (RO)+ 
| $122 2700 901174 MOV 
$123 116503 090007 MOVB  P.BAHITRS),R3 
$124 O42262 942703 | BIC 877774, Re 
«$125 «C4226 010337 Oolese MOV aes, 
+ SIZE 042272 016537 000010 on1260 MOV aang great; 1 8 ae 
«$127 «042300 016520 O00016 MOV CSI(RS), (RO)+ ;GET ALL et vaL UES FROM THE 
«S128 042304 O16528 o0002 MOV P.C52(R5) | ¢ Ro} ‘PARAMETER BLOCK AND LOAD 
| $129 O42310 Ole520 000030 MOV P-OCYL(RSS, (RO)+ ; THE TEMPORARY REGISTERS 
S136 042314 016520°- 000826 MOV P:DTS(RS),(RO)+ ;POR REPORTING. ALL THIS 


ee ee ee 
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042320 016520 900022 MOV P.WOR(RS),(RO)+ ; spare ey wale Ye. 
042324 O1 oooo24 MOV P.BAR(RS), (RO)+ s DETERMINED | LATER) ip fe IT IS 
o4e330 gi6 900032 MOV P.ASOF(RS$. (RO)* ;STORED ANY 
16 3 MOV P-DS(RS), (RO)4 
O42340 016520 00 MOV P.ER(RS).(RO)+ 
o42344 016520 O00040 MOV P.ACO(RSS, (RO)4 
1g 2 MOV B- B00 ), (RO) + 
4 O1S Vv F.ADI( RS), (RO}+ 
16 MOV P.BO1(RS), (RO)+ 
042364 016520 900050 MOV P.ALO(RS). (RO)+ 
o2270 ate MOV B-B1O(RE), (RO)+ 
74 Olé 5 MOV P/ALI(RS), (RO)+ 
2400 O16520 96 MOV P.B1I(RS)| (RO)+ 
STORE PREVIOUS COMMAND FOR PRINTOUT 
o42404 Qt 701 001236 MOV #$REG26,R1 ; RORS OF PRINT BUF AREA 
O4e4i0 612700 S0522e2 MOV #PRVCMD. RO ;ADRS OF PREV CHND STORAGE 
042414 112021 MOVE (RO) 4, (Al)+ :DRIVE NO. 
042416 105021 CLR (R1)+ 
042420 11302] MOV (RO)+, (RL)+ ; COMMAND 
O42422 10502] CLRB sé) 
O42424 012021] MOV (RO)+, (R1)+ sCYL ADDRESS 
O4242— 116021 o00001 MOVE 1(RO),(R1)¢ : TRACK 
O4e432 105021 CLRBs(R1) + 
042434 111021 MOVB (RO), (RI)¢ : SECTOR 
042436 105021 CLRB ss (R11) 4+ 
Bubaag fieaes | Boooes ye «| StRO'RG EMT Ba BITS 
2oew 
Bubuer p4e705 apna Bic -8177774-R3 
o4e454 910321 MOV R32, (R134 
o42e45— 016011 000004 MOV —- YCRO), (RL) ;LO BA BITS 
42462 104410 RESREG 
64e464 000207 RTS pC 
+ SESSSELRELEESSESE- LEREFESEES AAS SAA RSE RALALAFLALAASAFAAALELAAAFEE 
‘aETTL REPORT ERMOR ROUTINE 
:% ENTRY JSR PC, ERRHDL 
; #RETURN RTS pC’ 
‘ STHIS ROUTINE | S CALLED BY THE DRIVER WHEN AN ERROR IS DETECTED 
!#IN THE OPERATION. THE ROUTINE DETERMINES WHICH COMMAND WA 
: BEING EXECUTED AND GENERATES THE PROPER ERROR MESSAGE. 
¢ REREREAEAL ELE LE LALAEALL AAAS E LE LAR ELE LE RELL ALE LAERLLARAAARTRELE 
O42466 104407 ERRHDL: SAVREG 
042470 152737 000377 003113 BISB  # #377,DONE :SET DONE FLAG 
042476 105237 O03116 INCB —- ERRCNT INCREMENT ERROR COUN 
O42502 005037 005474 CLR RECODE :CLEAR RECOVERY CODE WORD 
042506 032737 000400 005474 ER2ENT: BIT aLEVCER,RECODE ;TEST IF eng abEVEL ERROR 
2514 po140e BEQ S25 :NO = SKIP PAR AM BLOCK CHANGE 
2516 012705 002704 MOV #PRRM1,RS ELSE SET RS TO PARAMETER BLOCK 1 
2 012737 O44664 003026 Ses: MOV #RETANL,A.ABNL :SET NOW ABNORMAL AND NO RETURN FOR 
042530 012727 O44702 003034 MOV BRETNNL | A.NORM DRIVER OPERATIONS IN ERROR PROCESSING 
042536 004737 O42206 ISR PC, REPSUP :GO SET UP REGISTERS FOR REPORT 
:NOW BEGIN TESTING THE ERROR 


;BI UENC 
WHICH THEY ERE TESTED TS 
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tf 
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O44, 
042764 
042772 


" KELL 
os-90 


0 
001431 


-76 


900034 
020000 


000299 
044236 
004C09 


000200 
044236- 


010000 
000400 


044236 


44236 
000400 


010000 


044236 


O44236 
000100 


044712 
002000 


oco400 


044236 
044236 


042506 
01000C 
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000020 


905474 
000020 


0os474 
000020 
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o00ced 
000020 


000014 


005474 
005474 


000014 
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: PAR 
geboR? ERROR ROUTINE 


es: 


38$: 


3$: 


398: 


4$: 


4O$: 
41$: 


cs: 


1 
SABORT , RECODE 
@NEM,P.CS2(RS) 
2s 


4 
sABORT , RECODE 


“SNED,P.CS2(RS) 


sUFE,P.CS2(RS) 
38$ 
7s 


37$ 
ay een Seats) 
#NED,P.CS2(RS) 
398 


35 
37$ 
4 
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Oe OER She ee IN 
TAPAS TROPHIC. N NATURE ARE FIRST 
; TESTED. 


'TF AN ERROR IS FOUND SET 

: THAT ERROR IS REPORTED AND 

FERATOTED 
S ARE 


am R4 nD FRR ERROR REGISTER 
;TEST UPE. IF UES-SET 
; REPORT ERROR 


; TEST NON-EXISTANT MEMORY 


;TEST NON-EXISTANT DRIVE 
;TEST IF NED & UFE BOTH SET 


;NED 8 UFE BOTH SET ERROR 
sNED ONLY 
;TEST UNIT FIELD ERROR 


tb eoxde UFE & NED BOTH SET 
;REPORT NED 8 UFE BOTH SET 


;REPORT UFE ONLY 


37$ 
SCMOTO,P.PRST(RS) ; 


PC, TOPROC 
STHOTOS,RECODE j 
#LEV2ER, RECODE 
41§ 


§ 
375 
S& 
37$ 
7 


ER2ENT 
sORVSZD,P. PRST(RS) 
65$ 


;GO PROCESS TIMEOUT 
: 2ND TIMEOUT IN pane Ce! PROC” 


ERROR S7 
ELSE MAKE FULL TIMEOUT REPORT 
;TWO TIMEOUTS ERROR REPORT 
;2ND LeveL ERROR REPORT 


D MAKE 2ND REPORT 
;BR'IF DRIVE IS AVAILABLE 


SEE IF DRIVE SIEZED BY OTHER PORT 


SE 


- -—- 
od J1l/74 
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DZRENC.F11  OS-OCT-7& 10:07 REPORT ERROR ROUTINE 
| $243 04277 108737 003126 TSTB p See IF DUAL -ACCESS FkaG SET 
deuce Suaces f54o ERROR a BR Ite SLEZED GY STHER PORT 
seus 54 10 obese Basis 63$ TNE Say AFG T DRIVE NOT AVAILABLE FLAG 
Ee Basei9 A Tb8485 990000 MOV #100000, RKesi (Reis pn, CONTROLLER ERROR 
$248 04 013737 OO 002104 MOV W. MIN, W. RV :SET TIMER FOR ABOUT A MINUTE 
260 3 113700 005 MOVE IVE: RO :D R 
1 043034 116037 003072 903071 MOVE A aly INTMSK’:SET MASK FOR THIS DRIVE 
$252 043042 113737 003071 003070 MOVE INTMSK,W.TIME  ;SET DRIVE NUMBER FOR THIS DRIVE 
$253 043050 105037 003113 CLRB BONE ;CLEAR THE DONE FLAG 
$254 043054 Oi! RTS PC :GO WAIT FOR DRIVE ATT’N 
| $255 04 032765 o20000 o00dls ESS: BIT #SPAR,P.CS1(RS) :TEST D TO C PARITY ERROR 
| $256 043064 001406 BEQ 6$ 
$257 O04 104006 ERROR 
$258 043070 37 904000 905474 BIS #RCLREQ, RECODE 
$259 043076 000137 O44236 IMP 
$260 gide p36704 000910 6$: grr #ORPAR, RY ;TEST DRIVE DETECTED PARITY ERROR 
$261 106 901406 Q 7§ 
S262 043110 104007 ERROR 7 
$263 042112 052737 904000 o0S474 BIS #RCLREQ, RECODE 
$264 043120 000137 044236 _- IMP ? 
S265 043124 032765 000010 o0003E 7S: BIT #ACLO,P.DS(RS) ;TEST AC LOW 
| $266 043132 001403 BEG 8$ 
«$867 pa3124 104010 ERROR 10 
| $268 043136 000137 o44e36 IMP 37$ 
S263 042142 O32765 00020 on00se ss: BIT #SPDLSS,P.DS(RS) ;TEST SPEED LOSS 
$270 043150 001403 BEQ 24g 
| $271 643152 104011 ERROR [1 
| 92872 043154 000137 o44ez IMP 375 
| $273 O42160 032765 004000 o0Do1e 24s: BIT SCTO,P.CSI(RS) ;TEST FOR CONTROLLER TIMEOUT 
| $274 O43166 OO1401 SEQ 25$ 
$275 042170 i04027 ERROR 27 ; 
$276 0423172 032704 oocoo1 2s: BIT #ILC,R4 ; TEST ILLEGAL FUNCTION CODE 
| $377 043176 O01403 BEQ 10$ 
2a hee i? pe ane 
| $280 043206 Sees aba o00c20 108: BIT Soke P. cS2(RS) : TEST PROGRAMMING ERROR 
| 9281 3214 901403 ; BEO 11$ 
| Be Re ee on ei 
| $284 043554 032704 ala 118: BIT #ILF,R4Y ; TEST ILLEGAL DRIVE FUNCTION 
| $285 043230 O01403 BEQ 12$ 
_ $286 043232 104014 ERROR 14 
| 9287 043234 000137 o44236 IMP 37$ 
4 les: #OTYE,R4Y : 
$288 043240 032704 900040 23 BIT DTYE,R TEST DRIVE TYPE ERROR 
$269 043244 001403 : BEQ 13$ 
$290 O4304%— 04015 ERROR 15 
$231 043250 000137 o44e26 IMP 37 
_ $398 942254 032704 Oood20 133: BIT #FMTE,RY : TEST FORMAT ERROR 
+9283 042260 001403 ; BE 14$ 
$294 042262 104016 ERROR 16 
$295 043264 000137 o44e3b IMP 373 
9296 043270 032704 o04000 14S: BIT WLE, RY : TEST WRITE LOCK ERROR 
| $297 043274 OO; iy 15$ 


1403 BEQ 
$298 O43276 104017 * ERROR 17 
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Retort ERROR ROUTINE 


1S$: 


18$: 


198: 


20$: 


els: 


22s: 


SOs: 
273: 
26s: 


37$ 

SUNS, R4 

5S 

SABORT, RECODE 
ALLTRM 
sSKI,R4 

17S 

21 

#RCLREQ, RECODE 
37$ 

#COE,R4 

18$ 


22 

Foe ES, RECS, 
#IDAE,RY 

19$ 


e3 
#RCLREQ, RECODE 
#OROT,P.OS(RS) 
20S 


24 

#RCLREQ, RECODE 
#OTE,R4 

els 


es 
SABORT , RECODE 
#OLT,P.CS2¢(RS) 
2e$ 

26 

37$ 

#OPT, RY 
#OPIERR, RECODE 
DERCNT 


37$ 
#LEV2ER, RECODE 
26s 


37S 

PC, BLDEXH 
ROHDO 

LEVEER. RECODE 


OS-0CT-76 10:59 PAGE 177 SE 


eo 
© 
a! 


; TEST ORIVE UNSAFE 


; TEST SEEK INCOMPLETE 


; TEST CYLINDER OVERFLOW 


; TEST ILLEGAL CYLINDER 


;TEST DRIVE OFF TRACK 


;TEST DRIVE TIMING ERROR 


TEST DATA LATE 


;TEST IF OPI ERROR 


;TEST IF FIRST ERROR 


;NO_ - SKIP REPOR 
:TEST IF A SECOND LEVEL 2 ERROR 
HAS ALREADY OCCURRED 


;GET OUT OF ERROR REPORT 
360 BUILD EXPECTED HEADER 
T_HEADER OF seeTOR 0 

iT ST IF ERROR GETTING HOR 

;1F YES-GO MAKE ABREVIATED REPORT 
33 HEADER 0 INTO REGISTERS 
;RESET INTERRUPT ENABLE 
:FOR REPORTING 


; TEST IF ERROR DURING STORAGE 





MO-11-D2REN-C - RKG1 1, ‘RKOG 
OZRENC.P11 7é 


DBRS ERREE 


Su 
10:07 


044236 
042506 
000400 


000020 
000100 


000040 
00i206 


000001 
003111 


O4S216 
000060 


jBSys. 


005474 


00S474 


005474 


000000 


005474 


005474 


005474 


005474 


005474 


001206 


001202 


VERIF. 


28s: 
23s: 


30S: 
S1$: 
31S: 


328: 


23s: 


33$: 


4S: 
3s$: 


; MACY11 27( 1008) 
ReboRT 7 OR ROUTINE 


#HVRCER, RECODE 
DERCNT 


37$ 
#LEV2ER, RECODE 
31$ 


severe RECODE 


P. Brae "3 


PC, BDSRCK 
READSEC RECODE 
375 


36S | 
oer RECODE 
oo 
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;MAKE OPI REPORT 


;GO MAKE 2ND LEVEL REPORT 
:TEST IF HVRC ERROR 


; TEST IF cin’ ERROR 
YES -_ REP 

: JUMP TO Re Tu RN ~~ 
;TEST IF A BND LEVEL ERROR HAS ALREADY 
OCCURRED. NO-SKIP EXIT 


;GET_ OUT OF ERROR REPORT 
580 5 BupLo > HEADER 


Test yf Pigg IN GETTING 


iE, ret 6? peKe BBREY AaTED AREPORT 
: CLEAR INTERRUPT ENABLE 


:STORE OFF HEADER 


s TEST N _ANY ERROR IN UNLOAD 
Y YE GO MAKE SHORT REPORT 
‘MAKE FULL REPORT 


;ABREVIATED HVRC_ERROR RPORT 
:GO REPORT 2ND LEVEL ERROR 
; TEST cor on SECTOR ERROR 


SK 
SET ERROR FLAG 
:GET CYL NO. 


;GET TRACK NO. 
:CLEAR ALL BITS EXCEPT TRACK 
:GET SECTOR IN ERROR 

:CLEAR ALL BITS EXCEPT SECTOR 
:GO SEE IF THIS SECTOR LISTED 


s TEST 


ESULT 
YES - EXIT, NO ERROR OR REPORT 
ELSE REPORT BAD BSE 
:RESET BSE ERROR FLAG 


:G0_ EXIT 
;TEST IF DATA CHECK 


3 SET DATA CHECK ERROR IN RECOVERY CODE 
;TEST IF ECC IS HARD. IF 
YES SET UNCOR REC TARLE iN 
:RECOVERY FLAG AND A 
sREGL l2 TO_ INDICATE UNCORRECTABLE, 
A 1 IN REG le FOR CORRECTAGLE 


JEST IF aio ERROR 
:NO SKIP REPORT 
K ADDRESS OF ERROR 


AD :GO_GET PACK 
P. Be area SREGIO ;STORE ECC POSITION 8 
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016537 


052737 
104060 


001204 


oo0020 
p0s474 
005474 


000014 


005474 
000014 


oos474 
000014 


005474 
000014 


005474 


003036 
003034 
005474 


000012 
005474 
005474 


00000) 
003036 


003036 
005474 


005474 


PART 


Macy 27( 1006) 


REPORT ERROR ROUTINE 
* abaees sap »SREGII ;PATTERN 


3t$: 


378: 


43$: 


44S; 


46$; 


ute, P.CS2(RS) 


SABORT , RECODE 
BUCERR, RECODE 
DERCNT 


PC, GTPKAD 
33 


#DRVHRD,P.PRSTCRS) 
43$ 


36 
#ABORT , RECODE 


#ORVDSC,P.PRST(RS) 
44S 


37 
WABORT , RECODE 


SNODSC,P.PRST(RS) 
46S 


40 
#ABORT , RECODE 


#UEXATT ,P.PRST(RS) 
ALLTRM 


42 
#ABORT , RECODE 
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REPORT DCK ERROR 
STEST WRITE CHECK ERROR 
;CLEAR ABORT & SET WRITE 
:CHECK ERROR IN RECODE 
sTEST IF FIRST ERROR 


50 cet —— OF ERROR 
REPORT WCE 


; TEST HARD ERROR 
;TEST STATUS CHANGE NOT CLEARED 
;IFST ATTENTION BUT NO FAULT OR DSC 


; TEST UNEXPECTED ATTENTION 


;ALL ERRORS MUST EXIT THROUGH THIS POINT 


ALLTRM: a 


47$: 


#PARMO, RS 

#ABORT, RECODE 

4g$ 

RKBAS,R 

#RDY, ARBS(RE) 

47g 

BABORT , RECODE 

wRCLREQ,RECODE 

GNRTY 

#RECAL, P. CMND 

#RETANL A. ABNL 
RVCAL 

#ERRHDL , A. ABNL 

BLEVGER,RECODE 

ABORT , RECODE 

0 


LUCK SELECTION 


;RESTORE PARAMETER 
1S FOR RETRY 


RESTORE INTERRUPT VEC 
:DRIVER OPERATIONS, IF 
TE ABORT Te NOT S€T AND 

! THE DRIVE IS READY (HAS NOT 
:CYCLED DOWN) 

;GET BASE ADDRESS 

:TEST IF DRIVE READY SET 
TRECALIBRATE REQUIRED BIT IS SET 
tELSE ABORT WITH ABORT MESSAGE 


; IF RECALIBRATE fs pene neo 
;FOR RETRY SET U 
BLOCK TO DO IT. 


’ 


;RESTORE ERROR RETURN 
IF AN ERR 


*RECAL ATTEMP SET ABOR 
:PRINT THE RECAL ERROR MESSAGE, AND 
:GO REPORT DETAILS 


SES 0178 


MO-1 1-D2REN-C 
DZRENC P11 


9467 044470 
S468 044474 


$473 rere 


44504 
S476 O44506 


- 
WO NOU wre Ow 
Aa z 
or 
Oo 


OS at ay 
222 
8 


atutututututurututar ust wl 
mrs OO 


a 
29 


- RKE1i 
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000137 
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003116 
01322 


000136 
100009 


002620 
000000 
040774 


000377 
000400 


000377 


005474 
00s474 


ocs474 
003117 


001174 
005474 


000001 


177776 


002113 
o05474 


003113 
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REPORT ERROR ROUTINE 


JMP ER2ENT 
48S: ERROR 61 ;REPORT ABORT-RETRY FAILED 


; THE PROGRAM WiLL HALT RE IF THE ABORT FLAG HAS BEEN SET OR 
IF THE DRIVE Y BIT IS RESET. 


HLTPRG: HALT 
CLRB ERRCNT ;CLEAR ERROR COUNT 
RES RESET ALL DEVICES 
JMP CMSTRT 


se FOLLOWING CODE WILL re IF AND DATA _TYPE ERROR 
CURRED. IF YES, THE RETRY IS NOT DONE HERE BUT RETURNS TO 
m3 INITIATING ROUTINE FOR RETRY. ANY OTHER ERROR IS TO BE 
;RETRIED HERE. IF RETRY IS OTNSUCCESSFUL AFTER 4 ATTEMPTS, THE ABORT 
:FLAG IS SET AND PROGRAM HALTS. 


BGNRTY: BIT #BSERR! HVRCER! OPIERR!DCKERR!WCERR,RECODE ;TEST IF ANY DATA ERROR 


BEQ 

9: BIS SANYDER , RECODE 

on BR es 
TST8 NORTRY ;SEE_IF “NO-RETRY” FLAG SET 
BNE 9$ ;BR IF YES 
BIT #BADSEC,RECODE ;TEST IF BAD get FLAG SET 
BNE es :IF YES-EXIT TO CALLER 


CMPB ERRCNT,ERRLMT  ;BEGIN RETRY IF ERROR COUNT HAS 
8 :NOT BEEN EXCEEDED 


C $SREGS 
MOVE ERRCNT, SRFGS ;GET ERROR RETRY COUNT 
pai 102 : REPORT oe ea eer. 


BI #REORT , RECODE :SET ABORT 

18: OV RKBAS, R2 ;GET BK PA E ADDRESS 
MOVB  #SUBCLR,P - CMND (RS) TO CLEAR SUBSYSTEM 
JSR PC REVEAL 
MOV #COMSTR, RO $0 AND REESTABLISH THE COMMAND 
MOV (RO)+, (RS)+ :AS IT WAS ENTERED INTO THE 
MOV (RO)+; (RS)+ :PARAMETER BLOCK 


MOV (RO) RS 
MOV #PRO, JKPSW ;LOWER PRIORITY TO ALLOW INTERRUPT 
JSR C, DRYCAL :CALL DRIVER 
23: RESREG IF RETURN GETS HERE, NO ERR 
RTS PC :OCCURRED, RECOVERY WAS cfecesruL 


RETANL: BISB $8377, DONE :SET DONE 
BIS #LEV2ER,RECODE :SET LEVEL TWO ERROR 
RETNML: BISE  8377,DONE :SET DONE 
RTS PC 


SEG 0179 


ES 


ele ba” - RK611/RKO6 SUBSYS. VERIF. 
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9$23 


104407 
ss O44718 0137 : 
So Rie fest Riis 
S535 044730 Qléeel 000010 
3536 Rican pibest pee 
Su GMrD Cleeel soos 
Se) ON7SD Cisse] S000 
Zi] pred Giese Boone 
us 044770 6900 


SUE O4477e 01270S 002704 
9547 O44776 112765 000141 000001 
737 040774 


seu8 BuEbiG 765 000100 000014 
9551 048020 052737 002000 o05474 
045026 


955¢ O6e705 O00040 
9553 O4503e Olesel 
9554 045034 OQleSel 
9555 O4S036 OleSel 
$556 045040 OleSel 
9657 O04504e Diesel 
$558 045044 O1eSel 
9559 O4S046 OleSel 
eee OleSel 
96e O450S2e 012705 O0e6e0 
9563 O4S0S6 104410 
9564 O45060 000207 
SSeS 
SSE6 
eee 
a] 
3ség 
3570 
9571 O4S06e 
9572 O450 104407 
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REPORT ERROR ROUTINE 


Os gay ST Ooo RR ISS 
ak gDUTYNE SUPPORTS. PE He PRON HANDLER BY PROCESSING TIME OUT STATUS 


+ LEERELERALASELALAL AL LLL EARL LLL REL LALAE RETREAFLEAEAEELERERELEFESE 


thr 


MOV RKBAS Re 
MOV #SREGS,R1 SETUP RI FOR RK REGISTER STORAGE 
MOV RKCS1(R2), (RI 1}+ :STORE ALL VALID RKE1! 
MOV RKCS2(R2),(R1)+ REGISTERS 
MOV RK eras) tRia+ 
MOV RKDA( RE)» (R1)+ 
MOY RKWC(Re); (R1)+ 
MOV RKBA(R2), (R1L)+ 
MOV RKASOF (RE), (R1L)+ 
MOV RKDS(Re), (R1)+ 
MOV RKER(Re), (R1)+ 
CLR RO :THIS CODE WILL ATTEMPT TO 
; RETRIEVE THE STATUS FROM THE 

MOV #PARM1,.RS UP TO USE PARMI 
MOVE = wRDSTAT pee :DO READ DRIVE STATUS COMMAND 
ISR PC. DRYCAL “CALL DRIVER 
BIT . #CMDT0,P -PRST(RSS :TEST FOR TIMEOUT 
BIS aha RECODE al TWO TIMEOUTS FLAG 
ADD #P.ADD. RS ; BUM P RS TO POINT TO DRIVE STATUS 
MOY (R5)+, (RL)+ "MOVE ALL THE DRIVE STATUS INTO THE 
MOV (RS)+; (R1)+ :TEMP REGS FOR REPORTING. 
MOV (RS)+,(R1)+ 
MOV (R5)+, (R1)+ 
MOV (R5)+, (R1)+ 
MOV (R5)+, (R1)+ 
MOV (R5)+)(R1)+ 
MOV (RS)+!(R1)+ 

V #PARMO, RS ;RESTORE PARM 0 
RESREG 

TS PC 


© KEKRKKLELHAL ELLA ELAR LEEK LEELA AE AA LARA ARLE RE RRAE RELA EARLE RELEAEAE 


‘ASTTL READ HEADER 0 ROUTINE 
a+ meniege mene Ne REPAY EUR RET ESE TET t Pe RENTER RTPI TE: 
HOO: 


SAVREG 

MOV P.DTS(RS),R1 § ;STORE TRACK aND poe TOR 

MOV P-B10(R5)°RO GET THE CYLINDER ADRS 

BIC #160017,R0 :FROM THE DRIVE STATUS. CLEAR 
ASR RO :OFF UNUSED BITS AND POSITION 
ASR RO "FOR USE AS THE DESIRED 


ASR RO :CYLINDER IN THE READ 


SEG 0180 
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DZRENC.F11 OS-O0CT-76 10:0 READ HEADER C ROUTINE 


8578 O4S10&6 006200 ASR RO sHEADER COMMAND. 
80 045110 012705 002704 MOV #PARM1.RS :SET UP TO USE P.8. 1 
9581 O45114 1016s ocooo4 MOV R1,P.SECT(RS) INSERT TRK,SECT FOR READ HOR 
gece oye! 010085 0 MOV RO;P.CYLN(RS)  :SE NO: 
9693 1204 1327 003115 SITB a8. CFMT,FORMAT :TEST PRESENT FMT AND CHANGE IT 
9584 o45132 901404 BEQ O THE OPPOSITE. THIS WILL CAUSE 
ea ine76s oo0020 000007 BIC8 : .CFMT,P. csr) -A READ OF SECT 0 HDR ON 
SE8é i42 403 8 THE READ HDR COMMAND 
9587 945144 152765 op0020 on0007 1S: BIS8 #8.CFMT,P.CSIH(R ri 
$88 o451s2 112765 000125 900001 2s: MOVB § #RDHEAD‘P. CHND (RS) “SET READ HOR COMMAND 
gég9 160 12737 000000 177776 MOV #PRO, d#PSW ALLOW INTERRUPTS “ 
3690 166 004737 040774 ISR PC, BaYCAL :D R 
9591 045172 142765 o00020 090007 BICB #B8.CFMT,P.CS1H (R6) “CLEAR THE FORMAT BIT 
9592 945209 153765 603115 000007 BISB FORMAT,P.CSIH(RS) :RESTORE TYPE AND FMT IN USE 
9593 o45206 012705 902620 MOV #PARMO; RS -RESTORE Pe. 0 ADDRESS 
9694 O45212 104410 RESREG :RESTORE RO- 
9595 045214 600207 RTS PC : RETURN 
gece : 
S36 
3s399 © ESSLEELES ESSE REE SEAE RHA SHELA RES ESEAS LAA AA KER LLL RAA HAAR RLEE 
3600 *ABTTL GET PACK ADDRESS ROUTINE 
S601 5 EEKK ELK EA ERA E EEA EKE REE LHEL LEAR ELE REE EARL RELA EER ELE RE ERLE ELE REESE 
605 o45216 016537 o90020 001174 &tPKAD: Mov P.DCYL(RS),$REGS ;GET CYLINDER NUMBE 
9603 O45224 095037 001176 CLR SREGE CL EAR REGISTERS FOR 
9604 045230 005037 001200 CLR SREG7 RACK & SECTOR STORAGE 
045234 116537 O00026 001200 MOVB = P.DTS(RS) SREG? peo THE TRACK AND SECTOR 
| 9606 O4Se42 116537 OO0Ge7 OO117E MOVB  P.DTS+1(R5),$REGE 
9607 oO45250 005737 001200 TST $SREG7 -ADJUST THE ADDRESS CONTAINED IN 
3608 2 ie at ° THE RK RE REGISTERS FOR THE AUTOMATIC 
9616 bdesee 005337 001200 DEC $REG7 id 
9611 O45262 o00426 BR 
| 612 O45264 O327E5 O10000 OOOdIs 1S: BIT #CFMT,P.CS1(R5) 
| 9613 O45272 O01404 BEQ 
| $614 045274 012737 o00023 oD1200 MOV #19. , SREG7 
9615 O46302 000403 BR 3$ 
39616 O48304 012737 oO00025 o01200 2s: MOY #21. , $REG7 
9617 045312 005737 001176 3g: TST SREGE 
8618 045316 001403 BEQ 4g 
$619 045320 005337 001176 DEC SREG 
9620 045354 900405 BR $s 
921 O45326 012737 O00002 OO1176 4S: MOV #2, SREGS 
S622 045334 005337 001174 : DEC sreGs 
9623 045340 900207 5S: RTS 
9624 
9626 
| cf 4 © LLLLEE KLEE LEEKS KEE KAA E SSSR EKA KER AAK AAA AAA SAAR SAAR ESSERE EEKESE 
| S28 ‘deTTL BUILD EXPECTED HEADER 
9629 :#USES DESIRED CYLINDER TRACK AND SECTOR REGISTERS TO DETERMINE 
| 9630 ; *WHICH HEADER WAS EXPECTED. LOADS EXPECTED VALUES IN SREGS, 6, AND 
| 9631 #7 FOR REPORTI Ne 
9632 © LLL EELEEKLRESLEEERSRE ELSES EKER E RSE EERE AKA A RAR AAARERELSLE EAE ES 
| 623 o4s342 104407 bi DEXH: SAVREG 


S634 O4S344 016537 000030 001174 MOV P.DCYL(RS) ,SREGS ;CONSTRUCT EXPECTED HOR 


MO-11-DZREN-C - RKE&1i/RKOG SUBSYS. VERIF. 
*- 05-OCT-76 10:07 


o4s2s2 


OZRENC.F11 





016501 
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: PAR 
BUILD EXPECTED HEADER 


23$: 


MOV P. DTS(RS) RI sDESIRED CYLINDER $ aDEStRED TRACK 
BIC #174377,R1 :CLE BALL BUT TB ACK BITS 
ASR Ri ‘chp SHIFT THE TRACK 
ASR Ri ; OVER 5 CONF ORI TO HEADER FORMAT 
aSR Ri CHECK THE FOR 

IF SET, SET ane TUPADER FORMAT 
MOV P. ;D1S(RS) SREGE : 
BIC $REGE CLEAR ALL BUT SECTO 
ADD ats SRect ADD TRACK AND Baa TOGETHER 


BIS #140000,$REG& :INSERT BSE BITS 
BIT acenT, °° CSI(RS) 


BEQ 

BIS #1000, SREGE 

MOV SREGS, SREG? :COMPUTE THE HEADER VRC 
MOV EGS.R 

BIC SREGS . SREG7 

BIC REGS.R1 

BIS R1, $REG7 

RESREG : 

RTS PC 
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ONS ‘REV. 3 ids oe) 
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JSR PC, W.WTCH 
RETURN 
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W.WTCH: tag RS,-(SP? 


Si ey 


R 
SRIRII ORS 
B 
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=O 
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O03050 O03046 a anal 
0 W. TIM 


20$ 
177776 RKPRI,PS 
MOV RKBAS Re 
DE DRY 
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| DERENC.F11 «© «OS-0CT=7E 10:07 eixDe INTERRUPT SERVICE ROUTINE ; 
s72e ‘ \SETTL  #RKOG INTERRUPT SERVICE ROUTINE 
| zs fp PRSSSSSSSSSSSSSSESESFAESSSELSSSSSLSLSESSESEELSSSSESFSSFSSSESES SSE 
731 :# 
| £s i THIS ROUTINE WILL SERVICE ALL RKOG INTERRUPTS. 
7s + UPON RECEIVING AN INTERRUPT, THIS ROUTINE WILL 
a3 :# PERFORM ONE OF THE FOLLOWING SERVICES: 
$737 ‘a J.) SERVICE PORT WAS SEIZED BY OTHER PORT 
$73 ; 1 g.) SERVICE DRIVER Is WAIT FOR COMMAND COMPLETION 
| $736 :* 3.) SERVICE POST LONTNG COMPLE 
| $750 :* 4°) REQUEUE COMMAND IF DRIvE EAS RELEASED 
| Stl :# a i eT D ne DRIVER. - 
are 1 S.) IF NO SERVICE IS REQUIRED, THE COMMAND WILL SE ISSUED 
| a3 ;# FOR THE QUEUED RKOG ORIVER. 
é s¢ 
S745 te THREE LINKS ARE PROVIDED TO THE DRIVING PROGRAM. 
ous :# THEY @RE: 
‘%¢ 3:2 
S748 1# 1.) A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND: 
| $748 :# g.) B-ABN. ADDRESS OF AENORMAL RETURN (UNSUCESSFLL COMPLETION OF COMMAND } 
ge . i? 3.) A.CONT ADDRESS OF CONTROL ERROR RETURN 
| § ie FOR NORMAL AND ABNORMAL RETURNS, THE ADORESS OF THE APPROPRIATE 
|e t+ PARAMETER BLOCK WILL BE IN RS. 
io 3¢ . 
S7é5 i# FOR THE CONTROLLER ERROR RETURN, THE LOCATION E.CONT CONTAINS 
g75 1 THE REASON FOR THE CONTROLLER ERROR. 
‘sé .e 
S75p # ROUTINES USED: 
$753 :# C.OPT (QUEUED ONLY) 
| $769 # G:PUSH (QUEUED ONLY) 
$761 i Q:RMOV (QUEUED ONLY) 
S762 i R.CONT (SEQUENTIAL ONLY) 
$763 # R.NORM (SEQUENTIAL ONLY) 
$765 1s R-ABNL (SEQUENTIAL ONLY) 
| $765 :# I.CSTS 
S756 i 1-$T8T 
| 9767 :# »TSSu 
| ge if 1:¢LR 
a7 Q s 5 SSEARASESELAALELALLLLEFLALAELE RA SLE RELELRELAARASELERFREREFLLTEF 
«8772 «ONse20 g1osHe I. INTR: MOV RS, -(SP) ;STORE RS ON THE STACK 
9773 O45e22 O1054e MOV —- RY =( SP) STORE R¥ ON THE STACK 
«8774 O4see4 SOs MOV —s- RB. =( SP) STORE RZ ON THE STACK 
$775 O45eee 010246 MOV —- RE. = (SP) STORE Re ON THE STACK 
776 O45630 O10i4e MOV = RI =(5P) :STORE R 
$777 ze 0100He Mov —s- RO" = (SP) STORE RO_ON THE STA 
9776 34 Ol 002026 MOV - RKBAS, Re ;LOAD Re TO ADDRESS RKOG REGISTER 
$778 O45640 016237 000010 002772 Moy  RKCS2tR2),T.cs2 STORE Cse 
9780 O4S646 032737 001000 002772 BIT MOS, T.CS2 CHECK TF MULTIPLE DRIVE SELECT 
9721 o4654 001407 BEQ 1$ :NO, CONTINUE PROCESSING 
S762 C4565 052737 100000 oD3042 BIS § #E.MOS.E.CONT SET MULTIPLE DRIVE SELECT 
$722 O45e64 004737 051076 JSR —s- PC, R. CONT ‘REPORT ERROR 
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PO=1L-DEREN-C = RKELI spre Su8S. VERIF. PART & MACYL1 27° 0&) OS-OCT-76 10:59 PAGE 187 SEG 0196 
DPRENC.P11 aia RKO INTERRUPT SER CE RULTINE 
$7g4 O4SE7D 900137 O05 : IMP T.RTRN ; RETURN 
"BE OUSE TY 737 003064 ~~ 18: TSTs ISRL : CHECK F INTERES PI 08 SEL EASE 
| EB BS BRE Pk SdecH Eat asta 
$788 45702 100403 SMI c$ scot TF UF ORI 
878S 46704 195037 003064 CLAB 30s. SRL ‘YE AR 
3-30 O45710 0004723 SR 1.100 :CONTINUE PROCESSING INTERRUPT 
4 
$792 045712 105037 003064 S$: CLR8 =: I. ISRL sCLEAR FLAG 
2733 716 600137 o4703e IMP ATTN G0 PROCESS DRIVE ATTENTIONS 
27 O4S722 032737 O10400 O02772 &S: BIT BNED!UFE,T.CS2 raat ee DRIVE OR 
ei 413 BEG 75 " INO WAIT FoR Bure ACCESS INTERRUPT 
a5aq - Bless |B 02772 Hoy T CSE RN rs LOH IVE NUMBER 
3/33 ef — « . 
| pars 17770 ¢ARCADAMSO RH HKD Oe Ls Ppa. 
$80: O4574—6 016237 000000 002770 MOV RKESitRE).T.CS1 iLOAD NPORARY CSI FOR STATUS REPORT 
| 2608 045754 900137 O46242 IMP I. ERRC ioe beT 
$354 016237 900012 903010 7%: MOV RKDS(R2),7.DS  ;STORE STATUS REGISTER FOR COMPARISON 
| #55 RIESEE 032737 000001 603010 BIT DRA, 7.08 :CHECK IF DRIVE SEIZED BY OTHER 
| $807 o4S774 pO1D41 BNE 1.100 “NO, CONTINUE PROCESSING INTERRUPT 
| 986 ;CHECK IF ANY DATA TRANSFER ERROR EXISTS 
3210 045776 032737 164000 00277 SIT SOLT!WCE!UPE!NEM, T.CS2 
| $812 O46004 901007 BNE 10$ INDICATE ERROR 
| #13 046006 016237 000014 003006 MOV RKER(R2),T.ER  ;STORE ERROR REGISTER 
| -S8is : CHECK FOR DATA TRANSFER ERROR TYPE ERROR 
#18 O4E014 032737 125700 003006 BIT #O0CK!OPI!WLE!COE'HVRC!BSE!ECH, T.ER 
218 o46022 001407 PEQ 11$ ;NO, WAIT FOR RELEASE OF RKO DRIVE 
| He 5 oyece4 052737 gooe16 o03z042 10S: 21s BE UATE. CONT :SET 7 UNEXPECTED DATA TYPE ERROR 
see Siesse | Bocia> = BeASSs TMP CL ATR sREpORT ER REGISTERS 
| $824 oO4ED42 105037 903070 118:  CLRB  wW.TIME RESET TIMING ON THIS DRIVE 
| 8885 O4e04e 605037 003104 CLR W. ORV : CLEAR TIMING COUNT FOR THIS DRIVE 
| see OMb0Se 13705 o03i02 MOV PBLKT,RS iLO LOAD R BS MIT H PARAMETER BLOC 
«$628 OMEOSE “OS27E5 010000 o00014 BIS sORVSZD,P.PRST(RS) ; -SET DRIVE SEIZED IN THE 
SS oecee cece exon ae gett, igure agtdat ons CEMETFIo 
255) iter BpSo3 nate JSR Be R. ABNL INDICATE ABNORMAL TERMINATION 
| 33 046074 900137 050050 IMP 1. ATRN GO RESTORE REGISTERS 
e234 100 919705 003044 1.100: MOV 0.WAIT,RS ;LOAD. PARAMETER BLOCK RODRESS INTO RS 
963s i04 001 BNE 2g :1S COMMAND WAITING PROCESSING 
| = YES, 00. PROCES sine 
| 227 O46106 000137 047032 IMP 1.ATTN NO, PROCESS ATTENTION 


9639 O46112 013704 002772 es: MOV T.CS2,R4 ;STORE RKCS2 FOR DRIVE NUMBER 
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RK YS. VERIF. ; PART 
SEHD BOS: OF ALERT, 
042704 177770 BIC 
oo00ce CMPE 
abt srs 
oo0c009 HALT 
765 000164 000001 38: “MP 
1002 SNE 
000137 o46500 IMP 
7 103: CLR 
ee ee Ge 
bite iain 992779 oat 
37 1 002770 git 
fee fut Gh 
Ibm + - be 
Bhoia> | bedsed aE 
oS276S5 000010 o00014 15$: ais 
4737 os0S20 I.ERRA: JSR 
O4 BR 
013765 002770 OO001E I.ERRC: MOV 
004737 osos42 ISR 
016265 000032 oo0062 I.ERR: MOV 
016265 000030 o00060 MOV 
004037 OSOO&E ISR 
os9050 I. RTRN 
032765 010400 co0020 BIT 
95108 BNE 
4o38 osoee4 SR 
0059 1.RTRN 
112737 002770 MOVE 
37 OS0150 JSR 
0050 I. RTRN 
133737 003071 003005 BITB 
001407 i ‘(C BEG 
052737 00020 o02042 BIS 
004737 OS1076 JSR 
000137 os00s0 IMP 
032737. o40000 002614 2s: BIT 
901403 BEQ 
052765 oooo40 oo00014 BIS 
022737 001000 OO301gE 33: BIT 
0014 EQ 
052737 o02000 on204e 1S 
004737 OS1076 JSR 
000137 osooso IMP 


FeRRuPT SERVIC ge ee were ee 


ROUTINE 
etC<DRVMSK>,R4 ;MASK OUT UNNECESSARY BITS 


P,ORVN(RS) RY CESK OF IF eee NUMBER IS EXPECTED 


3 
ogy VER ERROR 
BEOALHD,P.CHNOCRE) !CHECK IF READ ALL HEADERS 


EXECUTE NORMAL DATA TRANSFER 

I. HDAL :G0 EXECUTE SPECIAL HEADER SEQUENCE 
0.WaIT : CLEAR WAT T FOR CoM COMMEND COMPLETION 

E T W MING ON th 
Bice Re) T.cS1 } ser inn, La E A cists 
ace ART T.cS1 s CHECK Bid “CONTROLLER ERR 
RKASOF (Re a Cet ope Re Ge PENT TON N SUMMARY 
INTMSK, T. aboksie. chek bbb 1y RITENTION SET 

NORM ATE NORE “eETURN 
ae Hi RE REGISTERS 

SUEXATT,P.PRST(RS) :SET UNEXPECTED ATTENTION 
PC,I.CSTS :STORE CONTROLLER STATUS 
1.ERR :STORE PATTERN AND POSITION INFORMATION 


T.CS1.P.CSI(RS) ;GET ERROR RKCS1 
pe 1 ST OF CONTROLLER STATUS 
RKECPT (Re) ,P. epatirs -STORE ECC PATTERN 
RKECPS(RE) Pp: Eros (Re) : STOR RE E ECC POSITION 


RO,I.CCLR ;CLEAR C 
SNEDIUFE,P.CS2 (RE) :CHECK IF IT WAS NON-EXISTENT DRIVE OR 
; Rees ae 
Bo, 1.STAT cee ach pat DRIVE STATUS 
ZERROR RET URN 
RESET PET ccm 
eh ‘ PBEOR pet EN 


INTMSK, T. ASOF +1 : CHECK IF ATTENTION RESET 
INDICATE DRIVE ERRO 
#—.CLAT,E.CONT Set RTTENTION DID NOT RESET 


PC,R. CONT REPORT CONTROLLER ERROR 
1. RTRN :GO RESTORE REGISTERS 


#S.0SC,7.MRe ;CHECK IF DRIVE oe CHANGE CLEARED 


3 “YES. CHE 

BbRVOSC P.PRST(RS) jeer DSc DID N Tc EAR 
8S. PAR, T.MR3 CHECK F DRIVE DORIS ERROR 
c§ :NO Thotcar E BENORMAL TERMINATION 
#E.DPAR,E.CONT ;SET PARITY ERROR 

PCR. CONT s INDICATE CONTROLLER ERROR 

1. RTRN : RETURN 
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#RKOE INTERRUPT SERVICE ROUTINE 


SIRVHRD ,P.PRST(RS) piCHEcK JE HA ote DRIVE ERROR 
igs PIP, T.MRe Hee fe FR ive TS TOF CLING DGWN 
ie P, par ne) °: EF SRive U UNLOADING 


INTHS cA ire setup @ SECONDS FOR DRIVE TO CYCLE UP 
a ‘as RESTORE REGISTERS 
ABNL :89 REPORT ERROR 
ara O RESTORE REGISTERS 


#READ ALL HEADERS INTERRUPT SEQUENCE 


RKCS1(R2),7.CS1 ; 1S RROR TO CHECK CONTROLLER 


#CERR,T.CS1 :CHECK IF CONTROLLER 
c§ :NO, CHECK FOR ATTENT oN 
0.WAIT sCLEAR WAITING FOR COMMAND COMPLETE 
H. TINE RESET TIMING on DRIVE 

4. BBY Cb aR T OUNT 
T.CS1,P.CSI(RS) :STORE E M 

pc, 1. STi : STORE CONTROLLER REGISTERS 
RO;1.CCLR if ONTROLLER 
PC,R. REN. SINDICATE ERROR RETURN 
I.RTR “RESTORE REGISTERS 


RKASOF (RS), T. ASOF s STORE -AITENTION SUMM 
INTHSK, T.ASOF+1 ;CHECK IF DRIVE OTTENTION 1s Set 


=NO. CHECK if READ ALL HEADERS 

O.WAIT NO, of WAITING COMMAND COMPLETION 

W. TIME ;RESET TIMING ON DRIVE 

W. ORV LEAR TIME COUNT 

1.ERRA :G0 REPORT ERROR 

R. l ;GET MAIN MEMORY ADDRESS 
RKDB(R2),(R1)+ GET FIRST WORD OF HEADER 

KDB(R2)'(R1)+ GET SECOND WORD OF HEADER 
RKDB(Re);(R1)+ ;GET THIRD WORD OF HEADER 

1, HOR. AD :STORE ADDRESS FOR NEXT HEADER 

RK CS (Re) T.cS2 ;STORE cSe2 TO CHECK FOR DATA LATE 

#DLT,T.¢S2 :CHECK F DATE RTE 
at CT AE CRENE RENT NU HEADER YET TO 
255 iF Ren RENT FUREER OF ISSUE NEXT READ SESEER 
O.WAIT CLEAR aR ORivER R MATTING FOR COMMAND COMPLETION 
if ORY T FOR T HIS DRIVE 

TIME ‘ETE OR TCH DOG TIME ON THIS DRIVE 

"3 KMRL (R2) “LOAD MAINT NANCE R E TER FOR SECTOR COUNT 
#OR.SEL.7.CS1 :LOAD SELECT COMM 

RO,I rea” :GET SECTOR couNT 


;ERROR RETURN 
T.MR3,P.811(R5) ;LOAD SECTOR COUNT 
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05-Oct-76 10:0 #READ ALL HEADERS INTERRUPT SEQUENCE 
237 4 ISR PC. R. NORM : ATE NORMAL TERMINATION 
35 Baesaa is SEA3E3 IMP I. RTRN me 3, REGISTERS 
an 1eS562 000002 O00 25%: MOV P. CYLN(RS) ,RKDCYL ( (Re) ie Tas ea REGISTER 
sae 1g562 000004 9000 MOV p.SecT(R RS) BKDA L6 
9957 116565 000007 9000: MOVE =P. "P.CS1+1 iret. STORE BITS 8-15 OF CSI 
2352 OME 042765 165777 OOO01E BIC arentisc ae P.CS1(RS) sGLEGR Na BITS exCEPt FORMAT AND 
8360 D46774 ms 990125 000016 MOVE =- SRDHE os1cRs! ;STORE COMMAND ISSUED 
$961 O47002 O16562 000016 000000 MOV Poel RS), Sree eRe) -ISSUE READ KEADER 
236 047010 6800137 os0050 IMP I.R :RESTORE REGISTERS 
$9645 047014 oOS2737 OD0400 cozO42 358: IS 8E.DLT,E.CONT ;SET DATA LATE WHILE UNLOADING HEADER 
S965 047022 004737 051076 JSR PCR. CONT :REPORT ERROR 
2366 047026 000137 9360050 IME 1. RTRN :RESTORE REGISTERS 
2368 .SBTTL #DRIVE ATTENTION SCANNER 
$370 047032 016237 000000 002770 I.ATTN: MOV RKCS1(R2),T7.CS1 ;ST ORE COMMAND AND S78 TUS 
$572 oO47040 032737 109000 002770 BIT #CERR,T.CS1 s CHECK IF CONTROLLER ERROR OCCURRED 
| 3373 O47046 001441 . BEQ S$ , CHECK IF ATTENTION 
9975 “CHECK IF ANY DATA TRANSFER TYPE ERROR EXISTS 
| 2376 047080 032737 164000 002772 BIT #OLT!WCE!UPE! NEM, T.CS2 
| 9978 047056 001007 BNE 1$ s INDICATE ERROR 
2273 047060 016237 000014 o03006 MOV RRER(R2), T.ER STORE ERROR REGISTER 
| 3981 ; CHECK FOR DATA TRANSFER ERROR TYPE 
eee O47086 032737 125700 003006 BIT #OCK! OPI!WLE!COE!HVRC!BSE!ECH, T.ER 
| $364 os7a74 01407 a :NO DATA TRANSFER ERROR 
| 986°. 047076 052737 o00010 ooz042 15S: BIS #E.UDAT,E.CONT ;SET UNEXPECTED DATA TYPE ERROR 
$987. 047104 004737 OS1076 JSR PCR. CONT :REPORT ERROR 
| 2388 047110 00137 9500s0 IMP 1. RTRN !RESTORE REGISTERS 
9999 047114 013704 oO 2s: MOV T.¢S2,R4 C FOR REGISTER NUMBER 
9991 047120 neath 195555 BIC PEC BRUMSK> , RM Hi rie 3B. Sf 
| Be Bre ie Bin ce ue ieee ene ge 
| 2334 047134 013705 opatee MOV PELKT,RS sRESE! PARAMETER BLOCK ADDRESS IN RS 
| 9896 ; CLEAR. DRIVE POSITIONING AND DRIVE POSITIONED FOR DATA TRANSFER 
9997 : IN PROGRAM DEVICE STATUS REGISTER 
2238 047140 042765 O0000& 900014 BIC #ORVPOS! DRVPOT,P.PRST(RS) 
19880 047148 000137 o4E24e IMP 1. ERRC GO REPORT ERROR 
| 10002 047152 032737 O40000 902770 S$: BIT 801,7.CS1 : CHECK IF ANY DRIVE ATTENTION 
19008 047160 Oo01002 BNE 6$ YES. PROCESS I NTERRUP UPT 
|} 047162 000137 oso0so J 1.RTRN {RESTORE REGISTER 
| 0006 O47166 016237 002016 003004 éS: MOV RKASOF(R2),T.ASOF ;STORE ATTENTION SUMMARY 
| 18007 047174 105737 003005 TSTB ~—s- T. ASOF +1 :CHECK IF ANY ATTENTIONS SET 
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ee Sitete Beet 
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Té 
sbRtvE ATTENTION SCANNER 


INTERRUPT 
$e. NoAT E.CONT iY Ri BivER TYok IN ATTENTION SUMMARY 
PCR. CONT EPORT 
1. RTRN +86 pec vore CEES TSTERS 


INTMSK,7.ASOF+i ;CHECK IF DESIRED INTERRUPT 


8s 3 
#£ .UATT,£.CONT 3 ICATES ATTENTION 
FC Rs coft :G0 REP RR 

:GO RESTORE REGISTERS 


PBLKT : STORE PARAMETER BLOCK TABLE 
P DINARS) 8 :STORE DRIVE NUMBER 

e& = UNL PLPRSTIRE) De IF DRIVE UNLOADING 
I. UNLD :SERVICE ORIVE IN POSITION AFTER ERROR 
#ORVPOS.P.PRST(RS) ;RESET DRIVE POSITIONING 
RKMR1 (Re) ;CLEAR MAINTENANCE REGISTER 1 

aOR, SEL T. iL MM 

0,7.1sSu : SELECT DRI ve WITH ATTENTION HIGH 


URN 
T.MR3,P.BOO(RS) :STORE STATUS BYTE OO MESS 2 
aS FLT, P.BOO(RS)’ =: CHECK IF 


1 NO, C CHECK FOR DRIVE craTUS CHANGE 
1. AERR :PROCESS ERROR 

T.WR2,P.AQO(RS) ;STORE MAINTENANCE REGISTER 2 
#S.DSC,P.ADD(RS)’ ; CHECK TATUS CHANGE 


ES ERosese b ORIVE STATUS CHANGE 
BNODSC, .P. PRST(RS! etre NO DRIVE STATUS CHANGE 


: PROCESS 
aOR cL T.CS1 ;LOAD COMMAND 
Issu- CLEAR ORI VE STATUS CHANGE 


T.ASOF ,P. ASOF(RS) j STORE ATTENTION SUMMARY 
INTMSK;P.ASOF+1(RS) ;CHECK IF ATTENTION RESET 
15$ ¥ “CONT NUE INTERRUPT PROCESSING 
#£.CLAT,E.CONT * ATTENTION 1D NOT RESET 
: WITH DRIVE CLEAR 
PC,R.CONT FLAG ERRO 
1. RTRN RESTORE REGISTERS 


T.MR2,P.AQOQ(RS) ;STORE MAINTENANCE REGISTER 2 
#S.0S¢,P P.AQO(RS)" ;CHECK IF DRIVE STATUS CHANGE 


16$ YES CONT INUE NTERRUPT PROCESSING 
sDRVOSC, P. par ;SET DRIVE statu US CHANGE DID NOT CLEAR 
1. AERR :GO' PROCESS ERROR 
W. TIME ;RESET TIMING ON THIS DRIVE 
W. ORY CLEAR DRIVE TIMING COUNT 
PCR. NORM :REPORT SUCCESSFUL COMMAND COMPLETETION 
1.RTRN :RESTORE REGISTERS 
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DZRENC.P1L S-0CT-76 10:07 sATTENTION ERROR HANDLER 
10068 .SETTL #ATTENTION ERROR HANDLER 
12068 o47502 042765 O00004 000014 I.AERR: BIC sORVPOT, P.PRET(RS) BESET ET gPOGLTZONING : IN PROGRESS SECAUSE 
10068 047510 105037 003070 CLRB sé TIME EDR g TinING Fo FOR. THIS DRIVE 
10068 047514 hienss 003104 ELR W. ORV p06 TI 
10070 042765 177741 OO00916 gic #i77741.P. esicnsi PEEP COMMAND ISSUED 
10071 647526 042737 000036 002770 SIC #36.7.051. KEEP CURRENT CONTROLLER STATUS 
10078 ey 765 002770 O00016 BIS TCSLB-CSL(RS) iMBKE GOOD MESSAGE 
1007 7542 013765 O0e772 000020 MOV T.C52;P.CS2(R5) STORE CONTROLLER REGISTERS 
10074 O47550 013765 002774 O0002e MOV T.WCR,P.WOR(RS) 
10075 O47556 013765 obe778 000024 MOV T.BA,P.BAR(RS) 
10076 047564 613765 T.08,P.DTS(RS) 
ee pi3ee2 Shang S5poae NOY TLRSOF"PCABOF TRS) 
reef: bt 3282 akan’ V TER YP’ ERTES) 
10080 047614 013765 903010 o00036 MOV T.D0S;P.DS(RS) 
1008 2 904037 oso624 58 on RO,1.STAT io HER apeive STATUS 
pees Bases Tope oso0ds 002770 MOVB &#OR.CLR,T.CS1 ;LOAD COMMAND 
10084 047636 oso1so JSR RO, I. 1SSu : CLEAR DRIVE ERRORS 
{Shee bases 7? 003071 003005 ia INTMSK,T.ASOF4+1 : sERROR fer if att NITON RESET 
ioees 047652 artic Ef rc seek I DRIVE-E RROR 
10088 oO47654 37 003042 BIS 8£.CLAT,E. CONT :SET" aTteNTion EE NOT RESET 
1008S O47662 004737 051076 ISR PCR. CONT 
19030 O47656 000137 IMP 1. RTRN TRESTORE REGISTERS 
| 10092 O47672 032765 000020 o00014 2s: BIT WORVHRD,P.PRST(RS) iCHEC ECK IF GHARD DRIVE ERROR 
10093 047700 001017 BNE 10 
10094 047702 632737 oO20000 003014 BIT tS PIP, T.MR2 Pye IF aoRive IS UNLOADING 
1pege Baoote pesaee 000014 ee ie UNLD,P. PR att OADING DUE TO ERROR 
| 19097 04772 tee acer Goze? MOVE ——«INTMSK, u. tine nt ak ON THI DRIVE le oe 
| 10098 047726 613737 003054 Gd3i04 MOY W.8SEC;W. ORY SECONDS FOR CYCLE UP TIME 
10099 047734 000137 950050 IMP RESTORE REGISTERS 
101 7740 737 10$: JSR PCR. ABNL REPORT ERROR 
| ibis 7744 S013 ea IMP I-RTRN STORE REGISTERS 
| 19108 .SBTTL #*ERROR CAUSING DRIVE TO UNLOAD 
101 052765 o20000 014 I.UNLD: SIS ee UNL P. PEST(RS) “CLEAR DRIVE UNLOADING BECAUSE OF ERROR 
| 18188 Ba 5EE 112727 000005 aeoos 4 MOVE Cee “LOAD IN DRIVE CLEAR 
| 10108 047764 004037 050150 ISR reay” G0 DRIVE CLEAR 
| 10109 047770 OSo050 I. RTRN : T 
| 10110 047772 136437 003071 903005 6ITe sorta eo >CHECK IF ATTENTION CLEARED 
| 10111 050000 001406 BEG l : YES; 
Oil 050002 012737 o00020 oD204e MOV #£.CLAT E.CONT :SET ATTENTION DID NOT RESET 
| 10113 050016 6004737 051076 JSR PCR. CON "REPORT ERROR 
| 10114 050014 OOo415 oR 1. RTRN :RESTORE REGISTERS 
10116 050016 032737 O40000 003014 15$: &I1T #S.DSC,T.MRe : CHECK IF DRIVE STAUS CHANGE RESET 
| Worl Senne 001403 BEQ 2 
| 10118 OSO026 052765 oo0040 coDol4 BIS aDAVDSC, P.PRST RE) mF ORIVE STAUS CHANGE DID NOT CLEAR 
1011$ 050034 105037 0603070 2e0$: CLR TIME RESET THRINe aN THIS DRIVE 
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ZRENC.P11  OS-OCT-7— 10:07 CONTROLLER CLEAR ROUTINE 

3 .SETTL CONTROLLER CLEAR ROUTINE 

33 H | Sop Ap egg ag erento Ut rare een emer nT Ere ines er: 

32 :# THIS ROUTINE WILL off seo BY THE DRIVER TO CLEAR THE CONTROLLER 
3% 1% AND CHE OLLER ERRORS ARE RESET. IF THE ERROR IS NOT 
37 :* CLEBRED tHe M cure ys SPECIFIED IN A.CONT WILL BE CALLED WITH 
ES - CL N 

60 oe REGISTER USE 
i4]  % wee eee ne wee 

ot ;* 

43 1% Re ADDRESS OF RKDG REGISTERS 

ue * Be ADDRESS OF PARAMETER BLOCK 

at >*CALL JSR RO.I.CCLR 

47 # <ADDRESS OF ERROR RETURN> 

43 i RETURN 

a ‘. 4 SELKELEHFE SRA RLLE SALE SRE SARA AERA EREL EASE EEA AL ELA LLAAREREFLEELREE 

S2 OSOObE 012762 100000 OO0000 I.CCLR: MOV #CCLR,RKCSI(R2) ;CLEAR CONTROLLER 

2 050074 0]&237 955999 002770 MOV RKCS1(R2).7.CS1 :STORE COMMAND AND STATUS REGISTER 1 

ee O50i02 032737 100000 002770 BIT #CERR,T.CS1 : CHECK ad eGONTROLLE CLEAR DID 

5&6 050110 001407 BEQ 3 YES, RE RETURN TO DRIVER PROCESSING 

67? OS0lle 0S2737 00000: oos04e BIS #E.CCLR,E.CONT :SET'CLEAR CONTROLLER DID NOT CLEAR ERROR 
Se 050120 004737 051076 JSR PCR. CONT :REPORT CONTROLLER ERROR 

53 050124 9011000 MOV (RO) ,RO :SET UP ERROR RETURN 

BG O5012e6 000200 RTS RO : RETURN 

f2 050130 012762 900100 ocoo000 Ss: MOV #IE, RKCS1(R2) ;SET INTERRUPT ENABLE 

63 9501 i127 177777 003054 MOVE #1. 1. ISRL : SET INTERRUPT ENABLE ISSUED 

64 6144 605720 TST (ROS+ :ADJUST FOR NORMAL RETURN 

6 O50146 009200 RTS RO : RETURN 
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DZRENC.F11 05-OCT-76 10:07 COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


.SBTTL COMMAND ISSUED BY DRIVER SERVICE ROUTINE 
; LRRKERRAR REE EERE LARA RAKE E ELLE ALE RELEASE ESL EA LEER ERE REE ELS 


if 
THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.CS1 
AND CHECK IF A CONTROLLER ERROR OCCURRED. IF A CONTROLLER 
ERROR OCCURRED, £.CERR WILL BE SET IN E.CONT 
CONTROL WILL BE TURN OVER To THE ROUTINE SPECIFIED BY THE 
ADDRESS IN A. EONTS 


REGISTER USE 


Re ADDDRESS OF RKOS REGISTERS 
RS ADDRESS OF PARAMETER BLOCK 


em > 


ISR RO,I.ISSU 
<ADDRESS OF ERROR RETURN> 
RETURN 


ONOOVOVOVOVOOVOVOVOOOVVVOVOVOVOVOVOVOVOVOVVO000 

a ban ae bs Bas bas bn bs as Bas Bs Bs Bs bs bss Bs Bs Ba Bs Bn Bn Bn bs Ban Bn Bn bs ae be ss Bn 

BBR Re BSR ORR Elo Owe oul 2 conde capeD ar 
See ee ee ee ee ee ee ee ee ee ee ee ee ee et et ee ee et woe ee oe ee 


ob + 8 = b— bs b+ 0 0 0 bd 8 = 8 0 0 0 0 = Bb 0 8 2 8 + B&B b= 2 = 2 


I.CCLR 
1.STOR 
= SLSR EEKLEASSESRELE SEER ESE ASA ESE SHAE RARE HAA ALRAAELS LAA FRE SEARLE EF 
OSO1SO 012746 002770 I.ISSU: MOV T. CS1,-(SP) ;STORE COMMAND ISSUED 
050154 005037 002772 CLR T.¢S2" :CLEAR TEMPORARY CSe 
OSO160 116537 O00000 090277 MOVB _P.DRVN(RS).T.CS2’;LOAD IN DRIVE NU NUMBER 
050166 013762 o0e776 00001 MOV TCS2, RKCS2¢ (Re) ; LOAD DRIVE NUMBER OR COMMAND 
050174 116537 o00007 002771 MOVB  P CSIHCRE) T.CS1$1 :STORE BITS 8-15 OF CS1 
o} 142737. 177753 002771 BICB = #fC<B.. ty GENT, a eeenat see EXCEPT 
0201 oS0210 013762 002770 oD0000 MOV iF CS1,RKCS1(R2) sae, C MMAND 
0202 16 105762 ooo000 1S: TSTB KCS1 (Re) WAIT FoR READY 
0203 oS0222 100375 BPL is 
0204 050224 004737 0s0372 JSR STOR “ STORE REGISTERS 
0205 o50230 032737 100000 002776 BIT ace, 1-051 fe CONTROLLER ERROR OCCUERED 
5596 3 904333 001000 002772 BY? #MDS,T.CS2 : CHECK THR MuL TIPLE DRIVE SELECT 
Beye Deoscs eed 0 002042 Bre cP MDS. E.CONT iN, CHEE FUR OTHER CONTHOLL ER ERRORS 
at BenSep 47 ast 522 Pen. CONT REPORT LENT Boren ERROR 
Get os0262 o00440 BR RETUR ; 
0213 “CHECK IF ANY CONTROLLER emi IS SET 
0214 OSO0264 032737 O24000 002770 25: BIT #CTO!SPAR, T.CSI 
0215 050272 901027 BNE 7$ 
O216 O50274 032737 176400 002772 BIT #UFE! PGE!NEM!NED!UPE!WCE!DLT,T.CS2 
0217 050302 001023 BNE ? 
0218 050304 032737 131761 003006 BIT #ILC!DTYE! FMTE!ECH! BSE! HVRC!COE!DTE! OPI!DCK, T.ER 
0218 050312 001017 . BNE 73 
0221 0OS0314 122716 ooocos CMPB —s_- #DR.. CLR, (SP) ;CHECK IF CLEAR DRIVE 


ROUTINES USED: pee a 





ee ee ee ee 
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CORGNC.P12 © OS-0CT-76 10:07 #STORE RKELL wNisuS “ae Ess +B : 
| Be .SETTL  #STORE RKGIL UNIBUS REGISTERS 
| 7333 3 1p RRESPAESSSESSSSSSELSSESSSSSSSSSSSSSELSLEASSASSSFLASS ALAS SSE SASSY 
LO2e40 :* 
Ses) :# THIS SUBROUTINE IS ¢ BY THE RKOE DRIVER TO STORE ALL 
ee :* Rell REGISTER IN TEMPORARY LOCATIONS. ~ 
. ;* 
bess r#CALL JSR PC, 1. STOR 
tees :* RETURN 
ites 55 : REGISTER USE 
iho + 
ies :* Re —ROORESS OF RKELI REGISTERS 
ip = : 5 SSSAASLESLIFSSSSSSASSSLAFASSESSELSESLFFELELSFLELSSLERELESS PEELS FASS 
| 1264 oso372 016237 000000 002770 1I.STOR: ov RKCSL (RE), T.CS1 ;STORE ALL CONTROLLER REGISTERS 
1 1 772 Beatie) Tee ; EXCEPT DATA BUFFER 
rt } i RK Re), 's! 
1 is Oi 776 MOV ), 7. BA 
12638 En g16237 925008 o8 mov EKA: RE), T. 58 
{ eee oe 
| BSE Siesi> Bossi YRKERURS) ‘TER 
1S26i 95: 3 poets MOV RKASOF (Re) , 1. ASOF 
4 = 1 MOV ss RKDCYL( Re). 7.00 
i 1 00301 MOV RKMRI(R2),T.MRI 
i 3 1 33014 MOV Rune }, Tee 
| 2 oe Bless? 900630 peaaze Nov avecPs Ra). t- 
ow - wets ; uv gies 
i526? 06051 000032 9030 MOV RKECP (RE), TAP AT 
| ieee EBRIE Bisse SE mee PAT rum 


{ 
' 
i 


Qu cA cam ma hi ne 



















THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 
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| DERENC.F11 «— «OS-OcT=7e 10:07 #STORE Su teouLee $tares , 
#83 SETTL © #STORE CONTROLLER STATUS 
| a4 « pmeegameee arse y pepper casino meh ates hepa senegal ce 
537 a THIS OUTINE 15 ¢ BY THE RK =ORIVER AT PRIORITY 7. 
te :* ST Eee Ee dictens ure. ae sronen : 
E78 i coe OMMAND AND. STATUS REGISTER 2 
:* 
78 :# o5 sogRess es ais Fe 
* i: Riri mec 6 Sere 
| TER a. io “eG ig 
 10e82 :# S TENTION SUMMARY /OFFSET REGISTER 
£3 i CYLINDER ADORESS REGISTER 
| :#C@LL JSR PC, I.CSTS °, 
* RETURN 
° 
| + 
;* 

i* REGISTER CONTENTS 
| 2% 
+ Re RKOG BASE ADDRESS 
| i SE AOORESS OF PARAMETER BLOCK 


fp PRREARESESSSESFELESLASAASASAALALELSLSSASLALELALAALELLALLLAEELE LE 


177741 900016 I.CSTS: BIC 8177741, F.CS1(RS) ;CLEAR ALL BITS EXCEPT FUNCTION 
:OF LAST COMMAND ISSUED 


#22536 BRBO Te = : mate gs Asi i ReRATE cei status ft seme? r0N 


BE piccsagaan cae 
oe 
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Os0S42 Ole26s 6 1.CST1: MOV ebtpsse P. 3°RS) eT C AND STATUS REGISTER 2 
Ses ie BG Bee re By RR ep ge ape wPeertie 

Be BES EER Gee i CEESERE) ES Be eh 

| 52582 biESCE eat RaSSSE roy ard fe). sR) +31 SRF PERE STATUS REGISTER 
i see / 

xsv2 Stet 5 Beoste ites MOV RKRSOF aah: ASOF (RS) ae Bt NTTON a cay AND 

| $8311 osoes4 91 MOV RKDCYL(R2),.P. OCYL(RS) TOR ‘EYLINOER ADDRESS 

ae pS0ei3 SLEEES po0c20 000030 Moy KOC (Re), P.0 : STORE E D 

we 


a a RN RR LT LT TE 
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VERIF. : PART 2 MACY1 27(1006) OS-OCT-76 10:59 PAGE 199 ; SES 9198 
PGATHER DRIVE STATUS 


.SETTL *#GATHER DRIVE STATUS 
= SESSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSHSESSSSSSSSSSSSFSESSSLSFSS 
THI SUBROUTINE wit ee US yseD T0 ¢ GATHER DRIVE STATUS 
aa Oi, AND | THE DRIVE 
pREVTSUELY SEEN’ SEI 3.” ei: BUNS "aT PRIORITY 7. 


‘ JSR RO,1I.STA 
CRODRESS OF ERROR RETURN» 
RETURN 


Pa 
r 


THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 


ee ee ee me Oe Oe Oe ee ee Oe Oe Oe Oe eee 


REGISTER CONTENTS 
Re RKOE ESE ADORE 
RS ADDRESS OF BORERETER BLOCK 
ROUTINES USED: 
1.18Su 
s PERESSSRESSESSASESSSALALEA SSSA SLELELRAEFSELELLSLALELSLLLLRERAT AL 
o00dz : chai, MOV #1, RKMRI (RE) ;LOAD MAINTENANCE REGISTER l 
: FOR STATUS BYT 
902770 MOVE sOR.SEL,T.CS1 LOAD COMMAND 
JSR RO,1.1sSu" eet STATUS BYTES 01 
33 :ERROR RETURN 
o00044 MOV T.MR2,P.ADL(RS?) :STORE STATUS BYTE O1 MESS A 
Sopo3e MOV T_MR3.P.801(R5) : STORE waratus BYTE 01 “ESS B 
MOV 2, RKMRI (RE) :LOAD MAINTENANCE REGISTER 1 
: FOR STATUS BYTE 10 
002770 MOVB  asOR.SEL,T.CS1 *LOAD COMMAND 
ISR ,1.18$u :GET STATUS BYTES 10 
3$ : ‘ERROR RETURN 
oso MOV T.MR2,P.A1O(RS) :STORE STATUS BYTE 10 MESS A 
2 MOV T.MRS.P.BID(RS) :STORE STATUS BYTE 10 MESS B 
000026 MOV #2, RKARI (RE) :LOAD NBINTENANCE REGISTER 
; FOR STATUS BYTE 1 
002770 MOVE gOR, SEL T.CS1 LOAD COMMAND 
Ie RO, 1. 1sSu :GET starus 6 BYTES 11 
o000s4 MOV T.MR2,P.ALL(RS) +E ORE ¢ ATUS BYTE 11 MESS A 
9000S¢ MOV T.MR3.P.B11( RS) : STORE watery BYTE 11 MESS 
CLR RKMR1 {R29 :LOAD MAIN TENANCE REGISTER 1 
i FOR STATUS BYTE 50 
002770 MOVE #OR.SEL,T.CS1 OAD COMMAND 
5k RO,1.ISSuU ‘ser 3g ATS BYTES 00 
pooo49 MOV I. Re, P.ADO(RS) TORE Seay BYT 90 MESS A 
g0004 MOV 3'P. B00 RS) : STORE STATUS BYTE 00 MESS B 
003016 BIT My ey T.MR3 BAD BORiTY DETECTED BY DRIVE 


BEG S$ Noe “Re TURN NORMALLY 
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to to- 
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SEAR ROERE 
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0030%é 
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900014 S$: 
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SPBSVAL.P.PRST(RS) 
(RO)+ 







SAD PARITY DETECTED BY SRIVE 


ee Eee cemon RETURN 
; RETURN 


;SET PARAMETER BLOCK STATUS VALID 
sAOIU u RO FOR NORMAL RETURN 


orate St coe 
TRUMAU tRonn TRGwA 


ee et et ee et et ee ee ee 
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#COMMON DRIVER RETURNS 


LT SRL EER FETT 


FUTURE DRIVE INTERRUPT REPORTING 


ai INT; ert wef 


aden Ture gaz ve : 
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-SETTL #COMMAND INITATOR 


+ 
- 
- 

1 
o 
3 
‘2 

t 
oo 


f 
2 


+ SRSSSSSSSSESHAAESSESSLE SSSA LLSSLESFE LS LLL SELSSLLLALLFLESLSSELLES 


THIS SUBROUTINE WILL INITIATE ALL COMMANDS AS SPECIFIED 
eS F OF THE PARAMETER BLOCK. THE FOLLOWING 
CIAL COMMAND ALSO EXECUTED: 


Bias 


Sas 


RELEASE 
Sseevster CLEAR 
YSTEM AR 


0+ b+ bs 0+ = hs be Oe eh Oe ae 


5 
:# 
-+ 
-* 
-+ 
os 7% 
hon » 
7% 
545s :* Bee L DRIVE STATUS 
ote :o READ SPECIFIED HEADER 
wi 3;# 
nine i THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS 
0410 :@CALL JSR PCC. INIT 
O41 :# <BODRESS OF PARAMETER BLOCK? 
sig : : RETURN 2 
3 t+ FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE 
S415 :& LOCATIONS, PBLKT AND INTMSK. 
e ;* 
BiF i+ ROUTINES USED: 
Rais :* W.WICH 
5415 | te 1.csts 
o420 * :# 1.STAT 
B41 :# 1.CCLR 
ws :% 
Ses 5 RPRREFLRELAES SES SLLALALELAFLLEFLE LEELA RELLERELEF FELL LERAFERETLERE 
Buse SELise Sioade Re a aca STORE Fe ON Stack | 
piss pet 156 Bi eai Rey R32’ -(5P) : TORE R3 ON STACK 
toues DELiSe BiaTae my OMT’ <p) STORE RT oN eTack 
15a5¢ peiise Biboue MOV RO, - (SP) eT ORE Rd SN Erack 
i3431 051134 013746 177776 MOV ps’ -(SP) : STORE Pu ON STACK 
1 + pi i8o oi 37 s0302¢ 177776 MOV RKPRI.PS :LOCK OUT RKOS INTERRUPTS __ 
IB Gist Geeree foams coos |=, as Hee ingyen Se OS 
3 ; 
10435 pei ie8 016504 MOV PORVN(RS) RY +O aRe DRIVE NUMBER 
10436 OS11E4 042704 BIC 8tC<DRVMSK$ .R4 MASK OUT JUNK 
10437 051170 619537 003102 MOV RS PBLK ‘LOAD PARAMETER BLOCK TABLE 
10438 051174 116437 002072 003071 MOVE  I.DRV(R4),INTMSK’;LOAD INTERRUPT MASK 
10439 051202 116437 903072 903070 MOVE  T.DRV(R4)'W. TIME :SET WATCH-DOG TIMER FLAG 
19480 051210 013737 003052 903104 MOV W.SEC,W. ORV ;LOAD WATCH-DOG TIME 
iD44e 051216 012702 002026 MOV RKBAS, R2 ;LOAD R2 WITH RKO& ADDRESS BASE 
10444 : RESET ALL BITS IN PROGRAM DEVICE-STATUS REGISTER EXCEPT 
LO445 ; RIVE IN U 
LO44e : WRITE FOR WRITE CHECK 
10447 : NO CHECK 
LOs46 : DROP DRIVE FROM TEST SEQUENCE 
1o448 : INHIBIT BUS ADDRESS INCREMENT 
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BTPIS Se RARELORROR. BE #OMMAND INI TATOR meee 
ee oSiz22 o4e76S 075176 oOOool14 BIC #1C<DRVUSE!W. WOK! NOCHK! DRPORV!DTBAII> .P.PRST(RS) 
ive 951230 910500 MOV JRO : STORE PARAMETER BLOCK ADDRESS 
1 OSlese O6e700 O00016 ADD "C51, R0 BL CULATE aidees OCATION. 19 oe CLEARED 
10454 pies 10501 v RS. ee iia a ANE TER 9eK AOD 
10455 l 1 oG006e2 eP'EPAT.RI RAC ERLATE LAS ATION one 3 CLEARED 
w 
1 951 18: CLR (RO)+ sh AR TURN PAR PABAIE TER 
1 l fay RO,RL CK I 
l O51 10177 BLos SS s«18 if CLEAR NEXT 7 EP urn ARAMETER 
tous; betsee. A 5539 Ce Ans) ieheee RETEERE, 0 ivierwur? 155Ue0 
ai ve ; . 
ibuee be tees ! ear CLR RKMRI (Re) CLEAR RKO MAINTENANCE REGISTER 1 
| 10463 oSicee 16768 §00040 0000! grTs 8175,P. ~CMND (RS) AGES HES ECIAL COMMAND 
| D465 Re teSe Bea 795 052012 hi . SPEC :JUMP TO SPECIAL COMMAND PROCESSOR 
| 3046? 051302 122765 ocol107 000001 3S: CMPB —s @UNLOAD, P.CMND(RS) ;CHECK IF POSITIONING COMIAND 
ibaee ; - ; START SPINDLE | 
10469 : RECALIBRATE 
10470 > OFFSET 
| 19471 : SEEK 
| 
| 10474 051310 101174 BHI 2s :NO, DRIVE COMMAND 
| 10475 zt ECT DRIVE 
1D476 : PACK ACKNOWLEDGE 
eA ; CLEAR 
10479 O0Si312 122765 900117 ooDc0! CMP8 =s- #SEEK,P.CMND(RS) ;CHECK IF DATA TRANSFER 
10480 051320 103540 BL 20 :YES, DATA TRANSFER COMMAND 
10481 : READ DATA 
| 10482 : WRITE DATA 
104e3 : READ HEADE 
10484 ; WRITE HEADER 
1o4es WRITE CHECK 
10486 051322 O16562 00020 cOD010 MOV P.cS2(R5), mxosache -LOAD DRIVE NUMBER 
10487 051230 052765 600002 00014 BIS sORVEOS, Pp’ PRST(RS pet T DRIVE POSITIONING 
10488 051336 O06037 603044 CLR 0. WAIT FOR COMMAND 
10988 0513 iee7ES 000117 oco00! chee wSEEK, ". CMND (RS)! creck If SEEK icles 
| [O49] Retsee 016562 o00cc2 so00020 MOV . CYLN(RS), rkoevi cat” *LOAD CYLINDER ADDRESS 
| 10492 051360 oO16562 cO9004 d000d6 MOV P-SECT(RS); »RKDACR} «LOAD SECTOR AND T 
i 33 051366 09043! BR 9§ 0 $SSUE COMMAND 
10495 051370 122765 O00115 op0001 SS: CMPB 0s wOF FSET,P. aaien: ;CHECK IF OFFSET 
1049 051376 001007 BNE K FOR U 
10497 051400 1IESES oDD006 cDDD32 MOVB B. OFST(RS),P.AS0E(RE) ;STORE OF FFSET 
10496 651406 G1e562 00032 Oo00iE MOV P-ASOF (RS) ‘RKASOF(R2) :LOAD OFFSET REGISTER 
10499 051434 416 BR 8 :GO ISSUE COMMAND 
10501 OS1416 122765 000111 OO0001 E&S: CMPB ss BSRTSPL,P.CMND(RS) ;CHECK IF START SPINDLE 
10502 seiies 0010 BNE HECK I 


iy 
atta 
ao 
tw 
= 
+ 


3 NO, C RECAL 
13782 posOse Bosiod | OY WERT HDR pe (LORD HATCH Be TINE FOR 1 MINUTE 
1003 B 8s NO, CONTIN 
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© 
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051444 AL TIME FOR & SECONDS 


mises Hisee GEO RBRHL Re SULA VR TEBE Be cet rome 


oe 
ie 
a 


ER 
BS 


l 
10508 
| 10510 OSI466 116565 000001 oO001E MOVB -P.CMND(RS),P scales): VEORMENO IN TO CS} 
1051 1474 7 pores 14 BIC #l. WCK,P. usr WRI ib bee FOR oiLTE CHECK 
1051 1 76 i4 t SNOCHK: P- Tike) K IN K MODE 
a BA Bel om omy Eres. ea ope 
ibeis oe pies att B55538 on peat ches REcSLCASy sie ont 
tbeiS Beiess 272535 BSR ooer70 ey Rete he) iT C51 ; SFR “Cotati RO AND. STATUS REGISTER 1 
10518 051540 O3e737 000200 002770 BIT :WAIT F 
ines3 pelece poses 100000 002770 ere a T.CS1 ; CHECK 
ines? Releee Beery? BAL ret YES, @ i, RETURN 
iteee 951560 004737 045470 11S: SF Rts ic cH Dog i "E 
oe — 
tRes3 Bet es3 Pa6es BRGRSE lakers Bite Kasse (Re), 1,0508 “isles Teo re OCCURRED 
{bese Seiplo Sh17ee iss: ERs Ls at aii Cae 
Thess ReLERE ageges BRROTS + RPO Ak BTR Nt 
| 10528 051612 004737 051064 ISR PCR. NORM NOICATE COMMAND Is FINISHED 
10568 051616 900137 052772 IMP C.RTRN ‘ape SRE RESTS 
| HEE GIRS GLEE pumeia poems ee: ey ERSTE ae ase ieee 
| «PRES Geiger Biebe Doris eae NOV BT OVEN TRE) RKOCTL (RE) D SAR-CYLINDER SS REGISTER 
HES Bis Gee BRR] REE, at" NBTED LEECH etches 
| «TEESE Seles ABiore BNE BSS sO FSO, GO TSSUE THE COMMAND 
10537 OSieb2 65 oo0200 o00014 SIT a. WOK, P.PRST(RS! !CHECK IF WRITE COMMAND SHOULD SE ISSUED 
| 10532 051675 901405 BEQs “NO; GO ISSUE THE COMMAND 
| 10539 051672 O12765 ooc123 on0Dl16 MOY SWROATA,P.CS1(RS! ISSUE WRITE COMMAND 
| 10536 051700 } GO’ ISSUE COMMAND 
| [0542 051702 116565 000001 000016 255:  # Move P CHND(RS) P.CSI(RS) ;MOVE COMMAND INTO CS1 
| ies Betste GTECEE QBREOO OOets ots: fave BACSTH p.pRST (RS) jRESET MRE toe Brie oF est 
| ate pet See AES 799582 i? * Bice rosie cPatig: £6 tA. Seicia sai7sP P.CS1+1 (RS) 5 CLEAR ALL BITS EXCEPT 
1546 ; FORMAT DRive t , AND BUS ADDRESS 
| teen 17 ! 44 MOV RS.0.WAIT lt ale on 
* e 
tei ate 520572 PBs8c 900014 BIT RRA QeMAIT ccrcpib if Net? wuSe BUS ADDRESS INCREMENT 
| 10550 061744 001403 BEG e7$ :NO! EAD 
| 105 051746 952765 e00020 ers SBAI.P.CS2(RS) :SET INHIBIT BUS ADDRESS INCREMENT 
| 15 1754 OlESE 500010 278: MOV «=P. CSBLRE) RKCSecRe) ;LOAD CS2 
1053 O&i762 032765 OCd400 000014 BIT sHOCHK, P PRSTIRS) jCHECK IN NO CHECK MODE 
| 10554 951770 01903 30 :NO CLEAR OF ait RRUPT ENABLE 
«TREE BEZSOE Cleces Boosie SB5558 aos. may Feed esis) jcveamINTERR NANG 
| 13Ee? 052006 000137 0Se2772 "SNP C:R colt "Eectane REGISTERS 
ines .SBTTL #SPECIAL COMMAND PROCESSING 
| $0561 OS2012 122765 O00141 O0ODDl C.SPEC: CMPS = sRDSTAT,P.CMND(RS) ;CHECK IF READ DRIVE STATUS 





















“fh , 


: ERROR RET i 
ate »P.CS2( RS) jee F NON-EXISTENT DRIVE OR UNIT FIELD ERROR 
am, P.DS(RS) = 3C or F DRIVE AVAILIACLE 
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| 10562 oS2020 9011 oo 10 ere 408 aes it? PROCESS OTHER COMMANDS 
| OV E ) ) 
Sati Sesege CEE GRERES Boetis ig | Breet Res E Peiei RED oT Bits eis Be ce c34 
052036 OM276S 165777 OOOCIE Bic eiCcCEMTECHT) .P.CS1(RS) nist 12 EXCEPT FORMAT 
see, Seccds dteres Soper, posses Move OR. SEL AP ESI (RS i YSSue comme 
ss pesces 3 =a os. Be suite Reo i RB Sew Sl 
5 5ee%—4 616265 80 900016 OV PKESI(RE).P.CSI(RS) ;STORE COMMAND AND STATUS REG. | 
an 9520 <3 600200 d00016 I pears WAIT FOR RE 
| ipe7a feo) 547 4 kj C.1,¢8T T TROLLER REGIS 
«these RRStRE BPEDEZ SAREE onus alt BiARE(Ez),p.an0cRB) : Broke SEES Teer ERS ecsace a ; 
=: a Sass%t 00042 MOV RKMRG(R2)'P.B00(RS) : STORE aratie Be S 
5576 Sei 100006 000016 BIT ecERR,P.CS1(RS) ;CHECK IF CONTROLLER ERROR 
567? 052130 0014 BES &§ i110, GA VE STATUS 
| 3308 see 90 o70 Re k. TIME :RES et be odo & DRIVE 
| Z 3521! 900406 BIT NOCH, P.PRST(RSS il 
5 ] BMOS,P.CS2(RS) it Pay ae LECT 
rt SE Nes INDICATE PoE Ro RROR 
5é84 = 037 os006e RO, I.CCLR CLEAR 
5 6521 
052176 


ith 
rai 
iss 


oO 
- 
2 
- 8 
Oo 
oo 
© 
tf 
oO 
Met. 
oo 
4m 
~4 
2 


Rats get! ECR ROR 
—_ 
se sone ee 
a 8 
8 3 
o 8 
i! iy Fe 
ua te Ge it 


ey ee ee ry ee et et ee ry ed ee ee ed rd ed ek ed edd de ed ed ed ed ed ed ed ed ed ed ed ed ed ed ed ee ee ee ee ee ee 


OR 
0590 052210 OS2768 10000 o00014 BIS sRVSZ0P p_PRST(RE: > ENBTCATE ORIVE IS SEIZED BY OTHER PORT 
p69} 0 737 35158¢ +3 15k ABA TINAICATE ABNORMAL RETURN 
553 00137 5277 éP Rea ene tRESTORE REGISTERS 
5594 2 037 oSs0B24 é$: ISR RO,I.STAT +687 R DRIVE STATUS 
sae REEEES sak aE ARN arr fe 
SSS— 052234 [05037 00307 “(RB = W. TIME sEtee wetch Dos TIMING ON DRIVE 
0597 see40 05037 503104 aa WW. ORV RESET WATCH “208 TINE 
SESE Lt 06 oooci4 SIT BROCHK, P. PRST(RS! HECK I HECK MODE 
5633 OS22s2 01402 BEG REPORT E 
300 oscese poo000 oLR SKCE1(RE) CLEAR INTERRUPT ENABLE 

«(D601 C&2260 004737 51064 gs: SR PCR. NORM ORT COMMAND COMPLETE 

, 106 000137 O0&2772 IME C. “ath RESTORE REGISTERS 

952270 ose7 ,900¢ 003042 9S: gIs aE. MDS.E.CONT ;SET MULTIPLE DRIVE SELECT 
276 O047 951078 R. CONT : INDICATE CONTROLLER ERROR 
ose 000137 IMP ES “aTeN 
05¢ eres 000140 900001 108: ## CMFE BRELERS, »P.CMND(RS) ;CHECK IF RELEASE COMMAND 
d62214 601 BNE CHECK IF READ ALL HEADERS 
3619 052216 010537 ooz044 MOV RS, 0. WAIT oR ate BLOCK ADDRESS IN 
seis OS2222 os2765 oo0010 oD0De0 BIS ose (RS) SE 
061 seeze0 iesbe go 10 MOY P. pce RKCS2( am ; roRD P52 Fo ROE ELECT 
613 3 : il 3 3065 MOVB RELEA CORMAN 
is 362344 Liesés 900017 MOVE oi Joe P.CSI+1 (RS); STORE ails 8-15 OF ¢S1 
Sig OSe262 ONE7EE 165777 O00016 BIC Bee CRMTECOT GP P.CS1iRS) ite LEAR oLL BITS EXCEPT FORMAT 





ee 
So 


ew 
cD 


shibanisens 


0 0+ Ob 8 8 8 ok 8 8k He Oe Hh Ok He eo + Oe bs 
a 
o- 


sah Ecosse ye 


+ 
ocD 


PRR A RMR 
P-EDLDED SPO E LOPOe 


RR 


aa 


tuts 
™“ 


bs bs ba 0 08 be Bs 8 he bs 2 ob be oe + 
wone-Ow 2 


\ 
or 
“3 


soEting 


0Se2 
004737 
0004S 


Clé265 


rcs YS. VERIF. 


000100 
051076 
o0cc40 
000000 
100000 
000001 
051076 


003050 
000009 


009016 
14 


000016 
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118: 


138: 


14S: 
223: 


- 328: 
* 348: 


ne 


semen BROGEESIAG 
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SSELDRV,P.CSI(RS) ; 


SNOCHK,P. PRST (RS) ete RE Se" No HECK 
lis” BOK At pesky FNTESRUPT ENASLE 
eet ENABLE 


sie P.CS1(RS) No.8 INTERR 
pce * Ritsu dS -ISSUE C 
RESTORE REGISTERS 


SROALHD,P. cm RS), ;CHECK IF READ ALL HEADE 
30 CHECK IF IF CONTROLLER SLLER chess 
RS 0.WAIT Set WAIT COMMAND LETION 
O(RS) ,HOR.AD ;LOAD 
Me CFMT,P. sina CHE K IF as SECTOR FORMANT 
14 N HEADER COUNT 
420. LSA 5 ONS SECTOR COUNT 
228 ISSUE READ HEADER COMMAND 
#22. ,HDR.CT ine 22 IN SECTOR COUNT 
P.CYLN(RS),RKDCYL(R2) ;LOAD CYLINDER ADDRESS 
P-SECT(RS) 'RKDA(Re) ;LOAD TRACK NUMBER 
P.CS2(RS) .RKCS2(Re) =LOAD DRIVE NUMBER 
P_CSIH(RSS P.CS14i (RS) STORE ITS 8-15 OF CS1 
etC<CEMTECHT) .P. CSRS) CLEAR ALL BITS EXCEPT DRIVE TYPE 


#RDHEAD,P. CS1 (RS) ;STORE READ HEADER 

SNOCHK,P.PRST(RS) :CHECK IF NO CHECK ERODE 

34$ yes, INDICATE ILLEGAL DRIVER COMMAND 
-£S1(R5), mxcsiche) “ISSUE READ HEADER 

RESTORE REGISTERS 


sCONCLR,P. eons) ;CHECK IF CONTROLLER CLEAR 


ow 


NO, CHECK IF SUBSYSTEM CLEAR 
RO,I.CCLR CLEAR CONTROLL cS 
BNOCHK, P.PRST(RS) = CHECK IF NO CHECK MODE 
3N 1cA AL RET 
RKeS1 (RE) RESET INTERRUPT ENABLE 
40$ tINDICATE NCRMAL RETURN 


#SUBCLR, P.CMND(RS) ;CHECK IF SUBSYSTEM CLEAR 
$$ 77 EAR SUBSYSTEM 
#E.ILLD,E.CONT ;SET ILLEGAL DRIVER COMMAND 
PC : REPORT 


R. CONT RO 
C.RTRN :RESTORE REGISTERS 
#SCLR RK CSE (RE) ISSUE. suasySTEN CLEAR 
RKCS1URe CSL CRS) ND AND STATUS REGISTER 1 
#CERR,P. eatin Lehi oa CONTROLLER ERROR RESET 
37§ ib FINISH 
#BITO,E.CONT  ;SEt CLEAR SUBSYSTEM DID NOT CLEAR 
: CONTROL LER ERROR 
PC.R.CONT REPORT 
C.RTRN RESTORE REGISTERS 
W.MILI, -(SP) sLOAD 16 MILI SECOND COUNT FOR ATTENTION 


TO DISAP 
RKCS1(R2),P. esickS) : STORE cel 


SEG 


0295 


a ee 
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10678 052706 gze7es g4oooo o00016 eI #01,P.0S1 (RS) s CHECK IF ATTENTIONS CLEARED 
perk 1g apesie RES (SP) SPER aehEN {1 16 MILISECOND COUNT 
052720 901367 SNE 383 CHECK K ORI VE INTERRUPT AGAIN 

ae 052722 726 TST (SP )+ T STACK 

iDESs 052724 052737 o00040 9203042 BIS 8£.SCLR,E.CONT SET SuBSYSTEM CLEAR DID NOT CLEAR 
10680 : DRIVE ITEN TIONS 
{desi 052732 004737 051076 ISR PC R.CONT : REPORT 
10682 052736 OO0415 BR C.RTR : RESTORE REGISTER 
10684 os2740 905726 398: TST (SP)+ STACK 
1068S OS2742 032765 oo00400 oD0014 BIT #NOCHK,P. pastors! OT HECK IF NO asteck MODE 
1 FB b5e750 $0101 BNE RTRN YES, Re RESTORE REGISTERS 
l 112737 1 003064 MOVE #-1,I.ISRL INTERRUPT ENABLE SET 
10688 052760 Ole762 900:00 o00000 MOV BIE’ RKCSI(R2) SET INTERRUPT ENABLE 
10683 052766 004737 OS1064 40$: JSR PC, R. NORM INDICATE NORMAL SERNINATION 
10681 0S2772 012637 177776 C.RTRN: MOV (SP)+,PS ;RESTORE PSW 
10692 052776 912600 MOV (SP)+! RESTORE RO 
10633 953000 912601 MOV (SP)+! RESTORE Rl 
10694 053002 O12602 MOY (5P)+'Re *RESRORE Re 
10695 053004 Ole MOV (SP)+'R3 RESTORE RS 
10696 OE 012604 MOV (SP)+) RY RESTORE R 
10697 052010 Oiz60s MOV (SP)4'RS ; RESTORE fe 
10698 O530l2 O002 RTS pc T 
10638 .SBTTL OCTAL TO BINARY conversron ROUTINE 
es 4  premeeray agtnaeg Runt negra eegaes bom pier ets mm tae 
10703 :% THIS ROUT INE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED 
10704 é WITH A NULL <O00> OR COMMA. IF THE CHARACTERS ARE LEGAL 
10705 1 IT WILL GENERATE TWO BINARY WORDS PLACING THE LOW iS BITS 
10708 :# ON THE STACK AND THE HIGH i6 BITS IN LOCATION sHiocT: 
1070¢ :*CALL 
10708 # MOV <ADDRESS OF ASCII STRING>,-<SP) 
10710 te JSR PC, OCTBIN 
10711 : 1H <BODRESS OF ERROR RETURN? 
Be "eeiokoat 
sé 

wie 5p RERRERRRAE RRL E AREA EEA ERA ER ARRAS HER ERER EERE ERE LE RAR ARE RELA RA EEEE 
19716 OS2014 O10046 OCTBIN: MOV RO, -(SP) ;SAVE RO 
10717 52016 Ot 146 MOV R1;-(5P) :SAVE RI 
10718 6520 10246 MOY Re’ -(5P) :SAVE Re 
10718 05 30ce O1600 000010 HOY 1olsP), RO srr AfOORESS OF ASCII STRING 
{Bo8) Desesp Senos ROR 
10722 053032 112046 2s: MOVB (RO)+1-(SP) ;PICK THIS CHARACTER 
10723 052034 001423 BEG :IF ZERO GET OUT 
10724 052036 121627 oo00s54 CMPB 4 s«( SP), #”, CHECK IF COMMA 
10725 653042 001420 BEO 3 :IF COMMA GET 
10786 3044 122716 OO0060 CMPB s«#’"10, (SP) :MAKE SURE THs. CHARACTER 1s 
10727 OS30S0 O030 BGT 4 : AN OCTAL DIGIT 
10728 OS20S2 122716 op00E7 CMPB s«g?7, (SP) 
10729 OS30S6 O24 BLT 4g 
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ORERC IT © OsnoRtice TR:Be dctaL 10 BINARY CONVERSION ROUTINE 
10730 053060 9006301 ASL Rl : #2 
ee 953068 006102 ROL Re te 
i Resnee pep res ROL OC«iRR 
ve Boe mee me © A 
1073 30 poe 06 177770 BIC 8107, (SP) ;STRIP THE ASCII JUNK 
1 190 062601 ADD (SP)+,R1 -ADD THIS DIGIT 
ihoas estos poesee 38 er CRB) sO OE PARTIAL FROM STACK 
7 : : L 
{boas beside SiBiee oooo10 mv ORE LOCSP) i ChUe RESULT 
074i 053112 010237 OS314E MOV Re: SHIOCT 
10742 OS3116 12602 MOV (SB), Re sRESTORE R2 
)?, 
tRodq Basis? Bisees Mey 8633-8 iReeTSRe B 
10745 053124 O62716 oD0002 ADD #2, (SP) ; ADJUST RETURN 
10746 053130 000207 RTS PC : RETURN 
10748 053132 905726 4$: TST (SP)+ pas UP PARTIAL FROM STACK 
10749 053134 912602 MOV (SP)+,Re RESTORE Re 
10750 053136 O12601 MOY (5P)+°R1 RESTORE R 
19751 053140 012600 MOV (SP)+'°RO RESTORE RO 
10752 053142 O136is MOV a(SP)+, (SP) :BUT BODRESS_ OF ERROR ROUTINE ON STACK 
10753 053144 000207 RTS C ofhRcess RROR 
10754 053146 SHIOCT: .WORD OO DER Bits GO HERE 
10756 . .SBTTL RANDOM NUMBER GENERATOR init 
/ 
10757 © LELLAE LEE EREREL LEEKS EL LLAL EE EK KEK RAL ARLE ES EE KKA LAKE EAE RERALLEEE 
10758 PE THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
10753 _-« ERWITH A RANGE OF 0 TO 2(+33)-1. 
10760 *CALL: 
10761 iH JSR PC, SRAND 53 CALL THE ROUTINE 
10762 1% RETURN RETURN HERE THE RANDOM 
10763 1% SENUMBER Wd WILL BE IN 
10764 1 :: SHINUM, Sohn 
10765 
10766 052150 $RAND: 
10767 OS3150 o1o046 MOV RO,-(SP) ;;PUSH RO ON STACK 
10768 O521S52 O10146 MOV R1;-(SP) +:PUSH R1 ON STACK 
10769 053154 010246 MOV Ro’ -(SP) ?:PUSH Re ON STACK 
1 053156 013700 os3250 MOV $LONUM, RO SET RO WITH LOW 
10771 053162 013701 O53246 MOV SHINUM. RI ::SET R1 WITH HIGH 
10772 053166 Ole702 177771 MOV #-7,Re. ::SET SHIFT COUNT 
10773 052172 O06300 ~ 1S: ASL RO js SHIFT 
1 053174 006101 ROL Ri ::ROTATE CARRY INTD R1 AND 
10775 053176 Ooos202 INC Re :? CHECK 
10776 053200 001374 BNE 1 : CONTINUE SHIFT LOOP 
10777 052202 063700 os3250 ADD $LONUM, RO ::ADD NUMBER TO MAKE X 129 
10778 053206. D0S501 ADC s ERSPO CARRY 
1 053210 063701 os3246 ADD SHINUM, RI ADD NUMBER TO MAKE X 129 
10780 052214 062700 O010S7 ADD #1057,R0 ::ADD LOW CONSTANT 
10781 053220 o0sS01 AD Rl ; s PROPOGATE CARRY 
10782 053222 062701 o47401 AD #47401,R1 ADD HIGH CONSTANT 
10783 Deeb 010037 053250 MOV RO, SLONUM i SAVE RO 
10784 053232 610137 O53246 MOV Ri’ SHINUM 


;SAVE R 
10785 053236 Ole602 MOV (SP)+,Re ; ;POP STACK INTO Re 
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| DIRENC.F12 © OS-0CT-76 10:07 RANDOM NUNBER GENERATOR ROUTINE . 
ie Ss D1ebos MOV (SP)+,R1 3POP STACK INTO Bi 
iis? E3242 «012600 Moy (SP)+, RO ZIPOP STACK INTO RO 4 
15788 4OS3e44 000207 RTS PC : } RETURN 
1o78S «OS3E4E «1 7E543 SHINUM: WORD «176543 
.o7SC (E3250 «123456 ONUM: WORD 123456 
15731 -SBTTL TYPE ROUTINE 
erm © . eee NTIPE naci? Mecence Meceace Mist TERMINATE WITH AO. 
Lots : BRO OUT! TYPE ASCIZ SAGE MUST TER RMINATE WITH a : ete: 
<= - sTHE AOETINE WILL INSERT A aie fot att FEED. 
ia-s eNOTEL: SHULL CONTAINS THE CHARRC cRTO 6 BE DAS RHE PIELER CHARACTER. 
the 4 ; #NOTEe: SFILLS CONTAINS. THE NUMBER CHARACTERS REQUIRED. 
i738 ; aNOTES: SFILLC EONTAING THE CHARACTER - iil AFTER. 
aes ;#CALL: 
0803 jal) bgING A TRAP INSTRUCTION 
128 :# TYPE . ,MESAOR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
53803 ; #0R - 
ae i HeSon => 
5 3% 
15808 te . 
13e5e 953252 1 001157 $TYPE: TSTB  $TPFLG THERE A TERMINAL? 
133 Doses BBL 1$ Hee Fe 
15818 HALT HAL HERE IF NO TERMINAL 
3:2 Bessey Oy 18 Hov RO, =(SP) i LEAVE 
iets feiss bi ooooge mov  delSP),RO + EE y eBDRESS OF ASCIZ STRING 
1361s 053272 1 00000! 9001340 CMPB so BAPTENY,SENV =; ; RUNNING IN APT MODE 
138i5 052300 001011 BNE 62S :3NO,GO CHECK FOR APT CONSOLE 
2586 13373? 000100 001241 BITB ~ BAPTSPOOL,SENVM ;;SPOOL MES TO APT 
15817 963319 O01 BEQ sé aS :3NO,GO CHECK FOR CONSOLE 
11g Sle Ol 053322 nov RO, 61 ;;SETUP MESSAGE ADDRESS FOR APT 
15618 563316 004737 055750 JSR —s- PC SATY3 ;5POOL MESSAGE TO APT 
10626 853322 900000 61S: WORD ; ; MESSAGE ss 
ici SSzze4 is 000040 001341 628:  BITB  sAPTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
iSgee 953332 001003 BNE 3YES,SKIP TYPE OUT 
13623 95334 110046 2s: MOVB  (RO)+,-(SP) $j PUSH CHARACTER TOBE TYPED ONTO STACK 
ress esse O10 BNE 4§ BR IF IT ISN'T THE TERMINATOR 
Sees 053340 006726 TST (SP)+ iiIF TERMINATOR POP IT OFF THE STACK 
13see OS32 012600 60S: MOV (SP)+,RO :;RESTORE RO 
13627 (353344 062716 00002 3s ADD #2, (SP) :;ADJUST RETURN PC 
13628 963350 00002 RTI : RET 
15628 ae hee71 900011 4§ chee BHT, (SP) :;BRANCH IF <HT> 
13831 122716 000200 CMPB = sa@CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
‘ee Beasts 951906 BNE SS 
pte x TST (SP)+ ite «CR? <LF> EQUIV 
e-e) oo 10440} TYPE A CR AND L 
ibe3s +953 131 SCRLF 
138% 952374 105037 053530 cL SCHARCNT CLEAR CHARACTER COUNT F 
iz? S200 0007Ss ;;GET_NEXT_C : 
1363¢ SNe os34e4 St JSR C, STYPEC :;G0 TYPE THIS CHARACTER 
+33 sea7et 001156 6s CMPB 8s SF LLC, (SP)+ i318 IT TIME FOR FILLER CHARS. ° 
-== cH) } B 2 .3 F NO GO GET NEXT HAR. J 
1084: 053414 013746 oo1is4 MOV - SNULL, -( SP? :;GET # OF FILLER CHARS. NEEDED 


ee 
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coméNc.B1i OS-OCT=76 10:07 TYPE ROUTINE | : 
Ses i2s3e6 000001 7S: PEC SP) OES A NULL NEE 
. w : : ii 
Sees Seay GoES5 BLT iiBe F SHS i THE ULL SPF OF STACK 
1545 5E342¢ 008737 053464 feeb STYPEC 3360 TYPE A 
13846 OS332 105337 053530 DECB SCHARCN ;;D0_NOT COUNT AS @ COUNT 
1087 053436 000770 ae ; LOOP 
ites a ;HORIZONTAL TAB PROCESSOR 
he OSHC 112716 00040 8§: Move ;;REPLACE TAB WITH SPACE 
Se 9%: JSR Pc, stipec 
a 32737 000007 053530 BITS 87, SCHARCNT BRANCH IF NOT AT 
Lisss eRe peat (Bb tIPOP SPACE OFF STACK 
TES ? BR 2s iter NEXT CHARACTER 
LE Seses 105777 les460 STYPEC: TST S$TPS. {]WAIT UNTIL PRINTER IS READY 
15s SEE Sears liges 125452 MOVE (SP) ,9STPE —;LQAD_ CHAR TO BE TYPED INTO DATA REG. 
126° 332500 56 900015 00002 CMPB sR, 2{SP) S CHARACTER A CARRIAGE RETURN 
iSsei 5S355€ S61: BNE «18 :;BRANCH IF 
J 053515 105037 053630 CLRB = SCHARCNT :}YES--CLEAR CHARACTER COUNT 
iSees Seseie [se7ee ooocie oooone 1s PNPa ALE. BUSP) Te CeRacTER A LINE FEED? 
i5Ses 14 ‘BPO SrYeex it DBancn if ves 
iceee Sesbee SEE? canneries foe ¢ COUNT THE CHARACTE 
ieee ees HES fier: Ris PC 2 
i3ee$ 
i5eF2 
i5e7i 
i3ér72 
LD873 eee a ee cate 
i5e75 ‘art -PRECISION MULTIPLY I 
l5é75 ie OUTINE TO MULTIPLY TWO DOUBLE PRECISION INTEGERS 
15876 i USES ALL REGISTERS (RO-RS) 
i5e78 # ENTER WITH JSR PC,M.DPIM 
15673 i MULTIPLIER IN’ Re-R3 
i3ee0 1 MULTIPLICAND IN R4-RS 
=2EE: i PRODUCT RETURNED IN RO-R1-R2-R3 
2258 08234 pNE000 F i} PI CR RO CLEAR HI ORDER WORDS 
a2 B2 ie an 
15686 1 000041 MOV #41, -(SP) ;MOVE 33 (DEC) TO COUNTER 
15ee7 53644 06000 M.DPO1: ROR RO 
i3ese 053546 1 ROR sR. 
2689 ES ROR Re ;SHIFT TO ADD 
i331 953654 103003 Bcc OOM. ;NO CARRY NO ADD 
i3e3e oes OeDeOL ROD «=—s«éRS, RI 
ide O05 AOC =—_- RO ;ADD DOUBLE PRECISION TO OBTAIN NEW PARTIAL 
156s 583562 060400 ROD =—s«R4Y. RO ; 
13695 963564 005216 M.DPO2: DEC asP DECREMENT COUNTER 
13ESE 05356 00136 BNE -M. DPOL 
13697 053670 005726 TST  — (SP)+ ;REMOVE THE COUNTER 
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CISION MULTIPLY SUBROUTINE 


RTS 


PC 


ll DIMEPRCISIN DVI SOT 
boTTL 


DOUBLE ~PreLat DIVIDE SUBROUTI 
SUBROUTINE TO PERFORM DOUBLE -PRECISION INTEGER DIVISION 
USES ALL REGISTERS (RO-RS) 


ENTER waa pi vibEnO th N O-RI- 1D Rg 


88 


ADC 


DEC 
BGT 


Sa 


SOR I 
MATNOER RETURNED IN RO-R1 


QUOTIENT RETURNED IN Re-R3 
j REEREAAERRRRREELEREEERAEERREREEEEREREARELERELERERERELE LER EEEEEE 


Bs xwaugU RT 
3 


Ba ~ 
oBe 
“ea 


za: e& Be 
Wew w 
=U wv 

wz 

Oo 

“~~ 


R3 
#10,SP 


; COUN i. FOR DIVISION CYCLES 


THI 
iG ORDER DIVISOR TO THE STACK 
;FORM_ NEGATIVE 

: VERSION OF THE DIVISOR 


;PERFORM THE INITIAL SUBTRACTION 


;1F CARRY THEN OVERFLOW HAS OCCURRED 
:THIS IS A LONGER LASTING CARRY BIT 


;TEST “CARRY INDICATOR™ 
IF _NO “CARRY” THEN AOD ELSE SUBTRACT 
:CLEAR UP FOR NEXT TIME 


;ADD -(DIVISOR) 
;SET “CARRY” 


3 B00 +(DIVISOR) 
;SET “CARRY” 


;SET_ “CARRY” 
TEST a UPDATE INDICATOR 


;NO Tall PoRTaS HERE 
;DECREMENT COUNTER 
:BR IF MORE TO 00 


ADJUST STACK BY 4 WORDS 
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DIRENC.F11 OOS :07 bolle e PRECISION DIVIDE SUBROUTINE 
1084 053736 00242 cLv 
15855 063740 900207 RTS PC 
22358 Eine rae: 000006 M.DPSO: ery a6, SP 
i5sSs ; S PC 
_ 1085s 
Bes 
| i0S6e .SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
losé4 seen RCTTSE LLY OEHERT A EO CRIT LBGIGRED RINGRY PAPURER TO GO 
LISS :$TH res ROUTINE WILL CONVERT 8 32-B17 UNSIGNED BINARY NUMBER TO AN 
iLS6 ; CIZ NUMBER. 
Lis _ MOV aPNTR,-(SP) ;;POINTER TQ LOM WORD OF BINARY NUMBER 
15965 :# JSR _—- PC, aw$0820 $3 GALL THE 
15970 i RETURN THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
13$72 
| i3s73 os37s2 104407 $0820: SAVREG ;;SAVE ALL REGISTERS 
1574 053754 Olseo1 oooc0e MOV —s--@( SP) RI. s sPICKUP THE POINTER 7 79 LOW WORD 
10875 053760 012705 054071 MOV #SOCTVL+13.,RS ;;POINTER TO DATA 
15s7— 053764 012704 o00014 MOV #12. ,R9 '1D0 ELEVEN CHARACTERS 
i0s7? 053770 012703 177770 MOV #tC7'R3 : MASK 
153 pea77 312100 MOV (R1)4,R0 ;;LOWER WORD 
ids 12101 MOV (R1)+;Ri :;HIGH WORD 
i5se; Pesote 110048 1S: MOVE. RE, -(RS) + DOT CHARACTER IN DATA TABLE 
1096 54004 O10002 MOV RO, Re tte THIS DIGIT 
15983 05400 005304 me ;;COUNT THIS CHARACTER 
15984 054019 903007 BCT 3 ;;8R IF NOT THE LAST DIGIT . 
10985 054012 001405 BEQ is :3BR IF IT IS THE LAST DIGIT 
15986 054014 od05205 1 ES ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
1597 OS40i6 O10566 oo00de MOY «RS, 2¢SP) ;;ASCIZ CHAR. & PUT IT ON THE ST 
ie Deuces 108419 RESREG ;;RESTORE ALL REGISTERS 
15 RTS == PC ;;RETURN TO USER 
2 ES Ba og PURTTHGL Pg Ser RLM AE OO 
159 Mak BpeSaG ROR R : tHE Mi OCTAL DIGIT 
10963 054034 006001 ROR = RI 
Liss ROR RO 
i5ess ROR = R 
15996 ROR = 
15967 54044 040302 BIC 3, Re ssMASK QUT ALL JUNK 
19996 054046 062702 000060 ADD ~=—s«aw#'’, R HIS CHAR. ASCII 
10293 «(DS405e 000753 1§ + }G0 But I IN THE DATA TABLE 
11006 O4054 o00018 SOCTVL: .BLKB “RESERVE DATA TABLE 
22202 CBTIL’ DOUBLE LENGTH BINARY To BECTMAL ASCII CONVERT ROUTINE 
1 ea [aere Laren Get Geeaaet ih GRRE? GHEE WEDGE UE ie ToekTeeerl 
11505 tETHIS ROUTINE WILL CONVERT @ 22-817 BINARY NUMBER TO AN UNSIGNED 
$555 el the (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
** re 
11908 i MOY  - SPNTR, -( SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 


11308 1 ISR PC, ae$DB2D 


FOL 
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Senos 7 10:07 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
:# RETURN +; THE FIRST RODRESS OF ASCIZ 
!:IS ON THE S 
at — 2(SP),R2 Ploeg. BATA P 
B12F00 tei hov BSDECIL RO i RESS 2 OF a Asc eM VL" STRING STACK 
pr 00ee MOV (RO)+,R1 BUT ibe ORES BINARY SciZ S18 
pigses 12 054170 NOV sin ae :SET UP TO DO 10 CONVERSIONS 
aise Be oe MOV $7 PLA, RM t ADDRESS OF TEN POWER 
012705 o54204 MOV #STNPWR+2, RS 
005093 1$ CLR R3 ;;CLEAR PARTIAL 
161401 2 SUB (R4) ,RI ::SUSTRACT TEN POWER 
005602 SBC Re 
161502 Sua (RS) ,R2 
002402 BLT 33 :BR IF TEN POWER TO LARGE 
poseo3 inc Re $1800 1 TO PARTIAL 
062401 33 ADD (R4)+,R1 RESTORE SUBTRACTED VALUE 
poss0e2 ADC Re 
062402 ADD (RY)+,R2 
022525 chp (8S) )+) (RS)+ ; ;MOVE TO NEXT Alen POWER 
FP8se8 aoee R3, *thbhs Sie tr 
005327 DEC ie 33 
ie ch ae 
Tae830 CLRB ss CRD + +P MINA 
104410 RESREG : HFRESTORE. RE IsTERS 
000207 RTS PC ; ;RETU 
45000 STNPWR: 145000 te EOS 
b3ee 32 35632 
160400 160400. :31.0€08 
oue765 2765 
sass ll :31.0&07 
30 230 
041100 041109 331. 0E0& 
eee toa240 1.0£05 
090001 ce 
023420 23420 31. 0E04 
099000 
001750 1750 :1.0£03 
000000 
000144 144 31.0802 
Books le : 1.0601 
000001 31.0E00 
000000 0 
000014 SDECVL: .BLKB 1 SERVE STORAGE FOR ASCIZ STRING 


é. 
SBTTL TYPE NUMERICAL ASCIZ static” =UpeRESS LEADING ZEROS 
5 RERREEERAEERERELAAEAE ERASE EEE AEAE EERE REAAREEEREALARERER EERE RE 
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CIRENC Os-ort=76 10:07 tye NUMERICAL ASCIZ STRING SUPPRESS LEAOING ZEROS spre ae 
Li s*THIS ROUTI USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 

ie TEE AOS, 

11568 :* MOV  BNUMADR,-(SP) ;;FIRST ADDRESS OF ASCIZ STRING 

ict # JSR —s- PC, aNSSLPRS 

TESS os sees SSUPRS: MOV RO, - (SP) ;SAVE RO 

Lig74 SHE? 000004 - HOV 4(SP) ,RO i PICKUP THE POINTER 

11576 ae tae Q $ + 

21077 954300 122720 000060 CMPB = s#’0, (RO)+ $318 THIS AN ASCII “O” ? 

11578 954304 O01 BEQs1S F 

iiiv$ 584306 | es: DEC RO :IBACKUP BY "1" 

1080 94219 010037 OSHa16: MoV. RO, 38 :iS8 FOR TYPING 

1ides 054318 000000 38: . .WORD 0 ;}ASCIZ POINTER GOES HERE 

11983 054320 912600 MOV (SP) +,R0. ssRESTORE RO 

tides eszee 1 Moy (SP)+, (SP) itR TORE THE STACK 

11986 VSBTTL BINARY TO OCTAL (ASCII) AND TYPE 

r 1 33 [ POSSORREREREUEEeReS Ste nUnaee Ante RIT BINARY MPEER TO & &-DT 

ides :ATHIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
11990 s OCTAL (ASEIT) NUMBER AND TYPE IT 

+2525 ; #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
iiss # MOV NUM, -(SP) ; sNUMBER TO a3 T 

11338 1% TYPOS :;CALL_FOR TYPEOUT 

ildss te BYTE ON ;}N=I TO & FOR NUMBER OF DIGITS TO TYPE 
11096 7% -BYTE M 33M=1 ost 

11097 :# 1=TYPE LEADING ZEROS 

11100 f ; #STYPON--—-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
ARTs ; ; CALL: 

11103 4 MOV. NUM, - (SP) ;;NUMBER TO BE TYPED 

11154 i TYPON ;;CALL FOR TYPEOUT 

58 i #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

11108 : “MOV. -NUM, -(SP) ;NUMBER TO_BE TYPED 

i155 te TYPOC SECALL FOR TYPEOUT 

111] 054326 017646 STYPOS: MOV  3(SP),-(SP)  ; ;PICKUP_THE_MODE 

11112 054332 116637 000001 os4sS! MOVE © 1(5P),SOFILL =; ;LOAD_ZERO FILL SWITCH 

11213 O54340 112637 954553 MOVE ‘(SP)’ SOMODE+1 |} ]NUMBER OF DIGITS TO. TYPE 

11314 DS4a44 eerie O000b2 ADD —s_#2, (SP) STADJUST RETURN ADDRESS 

11115 064350 000406 BR STYPON 

13:18 954252 112737 000001 Os¥ss1 STYPOC: MOVE #1, SOF ILL ;;SET THE ZERO FILL SWITCH 

11117 954360 116737 00006 054553 MOVB 86,SOMODE+1 © ;;SET FOR SIX(6) DIGITS 

1iiig ge43eb 112737 O00005 OSH550 STYPON: NOB — 45.SOCNT 387 THE ITERATION COUNT 

Iileo 064376 biSsKe Mov ——- RY, - (SP) SAVE RY 

iilzi OS4400 Ol0s4e MOV «RS, - (SP) ;75AVE RS 


‘ 
' 
o- 
~ 


t 
Fe oe Re Be RRP Bb SEH EG EBB RRE OES Be SR POR LS 


a) 


Oe ee ee et ed ee ee ee de ed ed ed ed ee ed ed ek ek ed ed ed ed ed ee ed ed ed ek ed ed Se ed ek ee ed ed en ed de ed ed ed ed Be ed ee ee ed ed 
ee ee ne ee Be Bee he ht ee Oe Be be be ee + Be Be be be he ee ee Be ee ee he ee ee ee ee ee 
ee he ee ee ee ee he Be Be Be be Be Be be he bee be be be be et be ee be ee Oe ee ee ee Oe be eh 
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-0¢ BINARY TO OCTAL (ASCII) AND TYPE 
re os4s53 MOVE SOMODE+1 RY +;GET THE NUMBER OF DIGITS TO TYPE 
OE 704 900006 ROD 46, RH : SUBTRACT IT FOR MAX. ALLOWED 
pera pedzet Nove SOFILL, RY I: GET THE Pee PELL SWITCH 
016605 o00012 MOV 12(SP).RS ::PICKUP THE INPUT NUMBER 
p5003 CLR R ::CLEAR THE OUTPUT WORD 
1 18: ROL R ::ROTATE MSB INTO “C™ 
QO0404 aR 3$ 7:60 DO NSB 
105 23: ROL RS ::FORM THIS DIGIT 
006105 ROL RS 
006105 ROL RS 
p10803 MOV RS ,R3 
1 3S: ROL R ;;GET LSB OF THIS DIGIT 
105337 os4sse DECB  S$OMODE :: TYPE THIS DIGIT? 
100016 7$ ::BR IF NO 
042703 177770 BIC #177770,R3 :GET RID OF JUNK 
001002 B 4 :: TEST FOR O 
005704 TST RY SUPPRESS THIS 0? 
001403 S$ ::BR IF YES 
095204 4$: INC RY ::DJN’T SUPPRESS ANYMORE O°S 
052703 000060 BIS #’0,R3 ::MAKE THIS DIGIT ASCII 
052703 900040 cs: BIS 8’ 'R3 *!MAKE ASCII IF NOT ALREADY 
119337 oS4546 MOVE  R3,8S :: FOR TYPING 
104401 OS4S46 TYPE ek} ::G0 TYPE THIS DIGIT 
ibes3 os45s0 73: DECS  $OCNT ::COUNT BY 1 
003347 BGT 2$ ::BR IF MORE TO DO 
o02402 BLT 6$ ::BR IF DONE 
005204 INC RY ?: INSURE LAST DIGIT ISN’T A BLANK 
000744 BR 2 . ::G0 DO THE LAST DIGIT 
012605 6S: MOV (SP)+,R5 ;;RESTORE RS 
012604 MOV (SP)+,R4 ;;RESTORE RY 
012603 MOV (5P)+,R3 :RESTORE R3 
O16666 oocode oo0004 "OV e.SP);4(SP) ::SET THE STACK FOR RETURNING 
012616 MOY (SP)+, (SP) 
000002 RTI ; ;RETURN 
000 eg: .BYTE O :STORAGE FOR ASCII DIGIT 
009 "BYTE O >: TERMINATOR FOR TYPE ROUTINE 
000 SOCNT: .BYTE 0 ::OCTAL DIGIT COUNTER 
000 SOFILL: :BYTE 0 ?:ZERO FILL SWITCH 
ooo000 SOMODE: .WORD OO ::NUMBER OF DIGITS TO TYPE 
“SBTTL CONVERT BINARY TO DECIMAL’ AND TYPE ROUTINE 
es HEKASESRALLA LES EASES ESA ASSL LA RASRLAASLAR ASE AASL LRA RA ERA FEAALAEE 
THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
: #NUMBER He POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
; #REPLACED WITH SPACES. 
+ MOV NUM, - (SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
* TYPDS ::GO TO THE ROUTINE 
STYPDS: 
010046 MOV RO,-(SP) :;PUSH RO ON STACK 
O10146 MOV R1,-(SP) +:PUSH R1 ON STACK 


101 
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1117 MOV »7 (SP) 33PU ON STACK 

tig Beebo Bites MOV fg+= {8p} tiEUeH RS ON TACK 

11180 O545e4 010546 Nov REA=(SP) $PUSH RE ON STACK 
tii8, Beyees pierce. BeReSS Y -SBERS aS Rey Fhe But NUMGER 

11183 054576 100004 pes :i88 IF INPUT IS POS. 
rite M2766 000055 000001 nove P=, (SP) Rew THe ASciT NIGER NEG. 
i188 Beib19 BOSCRS  asu770 + ABN BSDBLK.RG te eR Oe the OINTER 
11182 OS46e16 116723 000040 SA ee -(RA)+ :1SET THE FIRST CHARACTER TO A BLANK 
7383 16001 OS4760 ‘ MOV SE TBL(RO).RI ieee AN 

tig s+ 160105 38: Sue RRS j#EORM. THIS BCD DIGIT 

i133 oBeete Inc Re :: ACREAGE THE BCD DIGIT BY 1 
iliss 40 060105 u$: ADD _—-RI, RS ;;ADD BACK THE CONSTANT 

ilis@ O54642 905702 TST RP IICHECK IF BCD DIGIT=0 

11197 44 901002 BNE + THROUGH IF O 

11398 OS4e4— 105716 TSta =: (SP) SISTILL DOING LEADING 0°S? 
111998 OS4eso 100407 BMI so :2BR IF YES 

11356 OS4e52 106316 ss: ASLB (SP) 2IMSD? 

11st beveee tieees goooo, 177777 oe GtSP).<1(R3) PS <ESUESET THE SIGN 

jet Pewee Geerce oomeg SHO. HIMEKE THE BCD DIGIT ASCII Oy a prcrr 
isos O54674 110223 ‘ MOVB Re, tR3)+ ?:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
tiSes bewses gos08? gooo10 oP Lis ETE TABLE INDEX 

Hee Boe is a} ig & pee ot 

11210 954710 o10S02 MOV RS, Re ::GET THE LSD 

tiZ11 O54712 O00764 B 6S 260 CHANGE TO ASCII 

1iz13 O54719 105726 gs: TSTB «(SP )4 iiWAS THE LSD THE FIRST NON-ZERO? 
tizi3 054716 100003 BPLi(iéiéitS ::BR IF NO 

T1214 054720 116662 177777 177776 MOVB  -1(SP),-2(R3)  $;YES--SET THE SIGN FOR TYPING 
Tidis O54726 108013 9S: CLRE 4 (R3) t'SET THE TERMINATOR 

tizié 054730 012605 MOV (SP)+,R5 2!POP STACK INTO RS 

liz17 O54732 012603 MOV (SP)+'R3 ?!POP STACK INTO R3 

iizi@ O54734 Olze02 y (SP)+'R2 :!POP STACK INTO Re 

11218 054736 012601 MOV (SP)+'R1 t!POP STACK INTO R 

11256 54740 012600 MOV (SP)+°RO :tPOP STACK INTO RO , 
lizei O54742 104401 054770 TYPE  , SDBL 22NOW TYPE THE NUMBER 

ll222 OS4746 Ole666 000002 oco0004 MOV B(SP),4(SP) ::ADJUST THE STACK 

llz23 O54754 Oleci6 MOV (SP)+! (SP) 

He oe ee wre: een © 

izes 054762 001750 "1000." 

{i227 54764 900144 100. 

izes 54766 00012 10. 

lizes 064770 00004 SDBLK: .BLKW 4 

Ex “SBTTL ERROR HANDLER ROUTINE 

1iz32 S3 PTPECSTECTCTTOT TTT TT TTT Tt ttt ttt tit tT titi tt tit ttt ttt tt ttt 
iizas ‘KTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
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MACY11 27( 1006) 


ERROR HANDLER ROUTINE 
SEND GO TOT ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


TYPERR 


OS-OCT-76 10:59 PAGE 217 


ON 
jSTHE | _ OPTIONS D Pov ieek BY THIS ROUTINE ARE: 
inriety ERROR TYPEOUTS 
BELL ON ERROR 


1$: 


20s: 


21s: 
ees: 
es: 
3s: 
4§: 


cs: 


6$: 


LOOP ON ERROR 
N : ;ERRORSEMT AND N=ERROR ITEM NUMBER 
SERFLG ;;SET THE ERROR FLAG 
7§ ::DON’T LET THE FLAG GO TO ZERO 
STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
#BIT10, aSWR $3 ON ERROR? 
g *NO - SKI 
SBELL RING BELL 
RTTL :: COUNT a3 NUMBER OF ERRORS 
(SP) SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
be te, SERRPS SITEMB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
#81713, dSWR ::SKIP TYPEQUT IF SET 
20$ siSKIP YPEOUTS 
PC. TYPERR GO TO USER ERROR ROUTINE 
, SCRLF 
8APTENV, SENV ;RUNNING IN APT MODE 
2 ENO SKIP APT ERROR REPOR 
SITENG 21 ::SET ITEM NUMBER AS ERROR NUMBER 
C,$ATY4 ::REPORT FATAL ERROR TO APT 
0 
225 :;APT ERROR LOOP 
aSWR ::HALT ON ERROR 
3$ ::SKIP IF CONTINUE 
::HALT ON ERROR! 
#81703, 3SUR :3LQ0F_ON. ERROR SWITCH SET? 
SLPERR, (SP) ::FUDGE RETURN FOR LOOPING 
SESCRPE sre FOR AN ESCAPE ADDRESS 
SESCAPE,(SP)  };FUDGE RETURN ADDRESS FOR ESCAPE 
#SENDAD,d842 ;;ACT-11 AUTO-ACCEPT? 
6$ ::BRANCH IF NO 


-SBTTL TTY INPUT ROUTINE 
+ REKEE AE ARE REE RE AK REE HEAR EERE HE EEER EERE EEE REL ER EA ELLA ER ERE REE 
LSB 


’ ENABL 
-DSABL 


LSB 


; ; RETURN 


SEG O2i6 
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DZRENC.F 11 0S-0CT-76 10:07 ity INPUT ROUTINE 


l 1230 LR ee eee tee ttt Telit & CINGE CHARACTER PRON TE TTY 
1183 :RTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 

11293 + RDCHR 3; INPUT A SINGLE CHARACTER FROM THE TTy 
11294 i RETURN HERE : CHARACTER IS ON THE STACK 
1129s 1 t UTTH PARITY BIT STRIPPED OFF 
HEB . 

11298 174 011646 SROCHR: MOV (SP), -(SP) ;;PUSH DOWN THE PC 

r1zes 176 oooo02 MOV 4(SP) 2(SP) ::SAVE THE PS 

11300 O55204 105777 123734 1$: TSTB = ASTKS ::WAIT FOR 

1130] p3eel 1 BPL 1$ 230 CHARACTE 

11302 le 11 123730 o00004 MOVB aSTKB,4 (SP) ::READ THE TTY 

11303 055220 O42766 177600 o00004 BIC #tC(1?7).4(SP) :GET RID OF JUNK IF ANY 
11304 o55226 500004 900023 CMP 4(SP), #23 ::IS IT A CONTROL-S? 

11305 055234 001013 BNE ::BRANCH IF NO 

11306 055236 123702 2s: TSTB =: AS TKS ::WAIT FOR AC 

11307 os5e42 1} BPL *:LOOP UNTIL ITS THERE 

+1308 seote tS3ea8 ee ee (ee) Re tr ocatT ASCII 

11310 Seesed 535728 2 CMP (SP)+, bel IS IT A CONTROL-Q? 

1i5!3 feesee ponees eae em 

es 055264 026627 O00004 000140 3S: CMP 4(SP), #140 tT tT SBPER CASE? 

11314 055272 002407 BLT 4 IF YES 

11315 055274 026627 o00004 000175 CMP 4(SP), #175 ::IS IT A SPECIAL CHAR? 
11316 o55302 BGT 4 : BR IF YES 

11217 055304 042766 ocoD040 oD0004 BIC #40, 4(SP) ::MAKE IT R CASE 

11318 O55312 oodo0e 4: RTI 330 BACK TO USER 

11318 055314 OS2536 ooso1s 000 $CNTLU: .ASCIZ /tU/<15><12> -CONTROL “U" 

11320 O56! 136 006507 OO00Dle SCNTLG: .ASCIZ /#6/<15><12> CONTROL -§ 

llz2i os 005015 053523 O20l22 SMSWR: .ASCIZ <15><12>/SWR = 

ll 055334 000 

il 055337 040 047040 OS3SO0S SMNEW: .ASCIZ / NEW = 

1} 055344 036440 o00040 

11325 

11326 

11327 

11228 .SBTTL POWER DOWN AND UP ROUTINES 

11330 :POWER DOWN ROUTINE 

i223 350 012737 oSS362 000024 $PWRON: MOV #SPWRUP,PWRVEC ;SET VECTOR FOR POWER UP 

i! E35& 000000 HALT *HANG UP 

11333 6 2 

11334 

11238 jPOWER uP _ ROUTINE 

112% 005037 055434 SPURUP SPWRCT ;WAIT LOOP FOR TTY TO COME UP 
113 055434 : oR SPWRCT 

11338 bee See 5350 24 a aSPuRON PWRVEC ;SET VECTOR FOR POWER DOWN 
11332 REEGaS Biss 340 O26 MOV PR7,PWRVEC+2  :RE-ESTABLISH POWER AND TRAP PRIORITIES 
11341 955410 012737 600340 000036 NOV BPR? TRABVECS2 JRE-INIT na wine 
305 a TOs401 Beea3e TYPE “BURNS : TYP POueR Fa iLeo* 

11344 OS&426 o00005 RESET ‘CLEAR THE 

L134 055430 000177 123452 IMP JSLPADR : RESTART ee A ERRENT TEST 


ee ee 
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DZRENC.P11  OS-OCT-76 10:07 POWER DOWN AND UP ROUTINES 

il 4 SPWRCT: .WORD O 

113 See se apente 047520 O42527 PWRMSG: :ASCIZ <15><12>/POWER FAILED/<15><12> 

lisse O55444 O20122 oO40506 046111 

11348 oSS4s2 o4210S oosois 

11350 Ooss4é0 EVEN 

11351 

11352 

11353 

] 1354 : © KEKESSESLSAS HAE LEAS SAESAL ELAS E SLSR SLAALAAA RL SAASLLELLELESLALELESS 
1136s :& SCOPE1 - INTERNAL SCOPE ON ERROR ROUTINE 

11356 :¥CALLED BY “SCOPER™ 

11357  SESSSRERSSEA FSA LAELAE RELEASE A LE SLSL ALAS LAALLS FAA RLAZLSRELSFELERE 
11368 OSS¥E0 105737 001103 dboPEL: 1S TB SERFLG ;SEE IF BN ERROR HAS OCCURRED 

ii OS5466 Basso 901000 123444 BI SITS, aSHR ieee IF LOOP ON ERROR DESIRED 

+133 Seeuce Tet 001110 ao SEPERR (SP) Ey RROR LOOP ADDRESS ON STACK 
+1266 REEe pasate 6$: RTI : i RETURN 

11364 

11365 

11366 

11367 .SBTTL SCOPE HANDLER ROUTINE 

ll oe: Lessensvngsousneseesnengesnusnescatenseneaperseengsnenntuenesuen 
11370 RTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
11371 ?%AND LOAD THE TEST NURBER‘STST¥ ) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
11372 . :#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

11373 : ¥THE SUTTCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

11374 ; #SW14=1 LOOP ON TEST 

11375 ;#SW11=1 INHIBIT ITERATIONS 

11376 x5WO9=1 LOOP ON ERROR 

11377 j#CALL 

11378 :* SCOPE ;;SCOPE=IOT 

11379 

13 aa 37 001304 wacethes TST STINES ;CHECK CURRENT ITERATION NUMBER 
ii3e5 510 ate BEQ SXTSTR ‘BR IF 0, TO SKIP CHECK OF SWR BIT 14 
11383 O55512 032777 O4O000 123420 15: BIT #B1T14, aSWR ; LOOP ON PRESENT TEST? 

11284 055520 001101 BNE SOVER YES IF SW14=1 

11385 -#eueeSTART OF CODE FOR THE XOR tésTERSesns 

11386 osss22 oo0416 $XTSTR: BR 6$ mY RUNNING ON THE “XOR™ TESTER CHANGE 
11387 $;THIS INSTRUCTION TO_A “NOP™ (NOP=24O) 
11388 oS5524 013746 ocOoD004 MOV DWERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
11389 055530 012737 OSSSSO oD0004 - MOV #55, J#ERRVEC i teeT FOR TIMEOUT 

11390 OS5&36 005737 177060 TST 3#1?7060 2: TIME OUT ON XOR? 

11291 OS5542 012637 oo00004 MOV (SP)+, JHERRVEC i }RESTORE THE ERROR VECTOR 

11392 osss46 00450 BR ssv ::GO TO THE TEST 

11335 peeeeS $ oo0004 vs sa (ep)a SRE RRVEC 3 Les TH e Rox BPTER TIME - 
1}3ad REEeee 13 BR oePt ii Reap ON THE PRESENT TEST 

1139 oOS5560 6$:;###eKEND OF CODE FOR THE aaa! ‘tesrenan 

11237 5560 105737 001103 2s: TSTB © SERFLG HAS AN ERROR OCCURRED? 

ii E564 001421 BEQ 3$ NO 

11399 055566 123737 001115 001103 CMPB § SERMAX, SERFLG $i0R J ERRORS FOR THIS TEST OCCURRED? 
11400 055574 101015 BHI ;;BR IF 

11401 055576 032777 o01000 123334 BIT #81709, ISWR ::LOOP ON ERROR? 


MO1 
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DZRENC.P11 § OS-OCT-76 10:07 SCOPE HANDLER ROUTINE 

il 404 BEQ 4g ::BR_IF_NO 

igs Gesbe Bis732 001110 OO1106 7S: HOV SLPERR, SLPADR ;:SET LOOP ADDRESS TO LAST SCOPE 

ll D556 105037 001103 4S: CLRB RE +: ZER THE ERROR FLA 

{1306 teste? 000412 not BR i a ee % MOE EXT oF ar 4 "A at 
11408 e777 004000 123302 3$: BIT eu, , aSWR ii ANAT IY {TERATIONS? 

11410 955640 005237 001104 ING SICNT 1 TNORENENT ITERATION COUN 

1141 pSeb44 023737 001304 001104 cH STINES, , SICNT s CHECK THE NUMBER OF HTERATIONS MADE 
4 4 1S: MOV N i roe F SOR EDUNTER 
iidtg Beege2 815585 BeOGA BRIAR Mov Sixth STINES “a Agee, ai ed NBS 
11415 055670 105237 001102 $SVLAD: INCB 5; COUNT TEST NUMBERS 

Heise Ace Bie IY ELS This selon 
11418 O55 011637 001110 MOV (SP) 35 RROR LOOP ADDRESS 

ek ta ee On MME NAC AE oa 
11421 055724 013 001102 123210 SOVER: MOV STSTHN, JOTSPLAY H DISPLAY TEST NUMBER 

114g 055732 O1 3716 001106 Nov SLPADR; (SP) ; ;FUDGE RETURN ADDRESS 

11424 055740 002720 SMXCNT: 2000. 'MAX. NUMBER OF ITERATIONS 

i14e6 : .SBTTL APT COMMUNICATIONS sited 

1 1427 . j JHHHHEHHHEHHHHHHHHHHHHEHHHHHHHHE SHE ERESERESEEREEE ESSERE ERE EES 
1148 OSS742 112737 900001 osee0e $ATY1: Move #1,SFFLG TO REPORT FATAL ERROR 

11423 055750 112737 O00001 OS6204 SATY3: MOVB #1.SMFLG tT9 TYPE A MESSAGE 

11430 055756 O004 BR gatyc 

1133 055760 112737 o00001 os&206 saTY4: MOVB #1,SFFLG :;TO ONLY REPORT FATAL ERROR 

11433 055766 oO10046 "MoV RO,-(SP) ;;PUSH RO ON STACK 

11434 055770 010146 MOY R1;-(SP) PUSH R1_ON STACK 

tii3e beer7e aopigen “ee Gre BLS eT: oR 

11437 056000 e073? 000001 001340 CHP BAPTENV, SENV ; OPERATING UNDER APT? 

11333 at aa, 16 13e737 000100 001341 BITE #APTSPOOL , SENVM SHOULD SPOOL MESSAGES? 

11441] Beene 017600 oo0004 MOV 34(SP) RO ::GET MESSAGE ADDR. 

11442 OS6024 062766 O00002 opn004 ADD #2, 4(SP) BUMP RETURN ADDR. 

iiss p5b032 005737 001320 18: ist SHSGTYPE SEE IE ‘bate W LAST XMISSION? 
11445 BeESB 010037 001334 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 

11446 OS6044 105720 2s:  _TSTB  (RO)+ ::FIND END OF MESSAGE 

11447 OS6046 001376 BNE 2 

Hg Geese deezeg ots - peor LS ERE woros 

11450 056056 010037 001336 MOV RO, SMSGLGT tt PUT LENGTH IN MAILBOX 

11951 beb0be 12737 000004 001320 Nov #4; SMSGTYPE ’: TELL APT TO TAKE MSG. 

11453 been? 72 017637 OCO0004 OSb1ib 23S: MOV a4(SP) 4S ;;PUT MSG ADDR IN JSR LINKAGE 

11454 OS6100 062766 00002 o00004 ADD #2, 4(SP) RETURN ADDRESS 

L14é5 108 013746 177776 MOV 177776, -(SP) ; ;PUSH 153776 ON STACK 

11456 056112 004737 OS3e25e2 ISR PC, STYPE ::CALL TYPE MACRO 

11457 056116 00000 4g WORD O 
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DZRENC.P11 § OS-OCT-76 10:07 apt COMMUNICATIONS ROUTI 
1145@ 056120 S$: 
11453 o56120 198737 OS6206 10$: STB SEFLG ene REPORT FATAL ERROR? 
it Deb ie8 tht 001340 isl : NV 3R NN NG UNDER APT? 
1Ne3 056134 005737 001320 118: Ist tee Lit use LAST MESSAGE” 
1 l42 01 00 01322 MOV 4(SP) SFATAL T ERROR 
tae Resse pe 2837 uae ara ADD #2, 4(SP) UMP RETURN aoc. 
1467 056156 005237 001320 INC nSGTYPE $3 TE abi? 10 TAKE ERROR 
i468 O56162 105037 o56206 1e$:  CLRB FFLG CLEAR FATAL 
1490 Deelse 10e037 Gses04 cre 4 SHFLG + CTE OR Loe FLAG FLAG 
1471 058176 vet MOV (SP)+,R1 ; ; POP STACK INTO R1 
1a7e b56200 O12600 Nov (SP)+,RO ii Le STACK INTO RO. 
1474 D5b204 000 SMFLG: "TE q : IMESSG. FLAG 
1475 os 000 SLFLG: .BYT >:LOG FLAG 
147% 058206 900 SFFLG: -BYTE ::FATAL FLAG 
478 009200 APTSIZE=200" 
475 009001 TENV=001 
80 000100 TSPOOL=100 
481 000040 APTCSUP=040 
ige .SBTTL ROUTINE TO SIZE MEMORY 
A : One gape aa se apr epeNeneine UNREST EL 


i JSR PC, $SIZE 
TURN 


HSLSTAD WILL CONTAIN: 
x 7 fll ne OPTION -- LAST VIRTUAL ADDRESS OF THE LAST BANK 
WITHOU Atal "he ~~ Laat rere ADDRESS OF AVAILABLE MEMORY 
t SSLSTBK WILL. Cont " THE LAST pe AS A 
; *$KT11 IS THE er INAGEMENT KEY 
NGI TO? = 0 DON’T 


TUP 5 nen ae y te C ape 
{aB1T15 me oon" a: HAVE MEM HANAGERENT OPTION 
;* DETERMINED BY ROUTINE 


= ee te Be he bee be Bee ee ee be Be Be pe he bh ho Be Be be be Be Be bw Pe Be Be Bw be bs Bs be hh he beh be Be 
ateteteieteteiasen stra ta ttt 
9 BB GKRLHOLS BSS 


= = +0 +b +O 0 0 & +O b+ > <6 © +0 0-* b+ b+ 6-2 b+ b-* & - bb bb &- B+ = 0 b+ B+ Fo fo ho 


056210 O10046 $SIZE: MOV RO,-(SP) ;;SAVE RO ON THE STACK 
056212 O10146 MOV Ri’ -(SP) 35 SAVE Ri ON THE STACK 
056214 010246 MOV Re, -(SP) ?:SAVE R2 ON THE STACK ; 
pebeis O1S3H6 MOV -(5P) SAVE R3_ON THE STACK 
13746 o00004 MOV Re ERRUEG. - p) # SAVE PRESENT ERROR VECTOR PS. ‘& PC; 
056224 013746 000006 MOV SHERRVECS2,~« = 
056230 010600 MOV iSAVE THE STACK POINTER NN 
;;SET THE ERRVEC spa" 0 THE mescid®? : 

056232 104400 TRAP "PUSH OLD PSW AND PC ON STACK Ay 
056234 012637 0 MOV (SP)+, Q¥ERRVEC 2’ “SAVE THE PSW IN a#ERRVEC+2 
O56240 01 3776 MOV #3776.R ;;SETUP AdDRESS 

50s o56244 105 TSTB. ss (PC) " 35 USE MEMORY MANAGEMENT? 

510 sebexs SKT11: .WORD ii 3 16 MEMORY MANAGEMENT 

Sil os j BPL IF 

Siz O56252 O1 056410 ococco4 MOY SSKTHEX, DeERRVEC’: SET FOR TIMEOUT 

11513 005737 177572 TST aeSRO jae ARE YOU THERE? 
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ROUTINE TO SIZE MEMORY 


BIS #100000, $KT11 EDL me a KT11 KEY 
CLR -(SP ; INITIAL Foe + toca LOADING 


) 
ROY aK TDARO,RE =F ADRESS OF EIRST CEA oor “Por. 
73 wo) 
1S: MOV ss58 Ak -40(R2) ti boR = aK UP, READ/WRITE 
MOV (SP), (R2)+ tt “Page 
ADD 8200. (SP) ;;UPDATE FOR NEXT “PAR” 
S08 Ra1$ : LOOP UNTIL 3 GL b EIGHT ARE LOADED 
MOV a 600, -(Re) :ISETUP 
CLR (Re) : SET Ki PARE FOR TESTING 
MOV 825, J8ERRVEC CAT H TIMEOUT ir NO SR2 
MOV 820, a8SR3 j $ENGBLE J BIT MODE 
5 THIS, FOP HAS A SR3 REGISTER 
2s: CMP )+, (SP)+ iT AN OFF HE STACK--NO SR3 
38: INC - :: TURN ON MEMORY MANAGEMENT 
MOV SSKTOUT, DSERRVEC’::SET FOR TIME OUT 
4 TST o8l4377e ;: TRAP ON X-MEM 
AOD ;;MAKE A 1K STEP 
., of SeKtPaR?,, (Re) ssLAST gtr 
s. BHI 4 i 
SKTOUT: MOV (Re) ae HOT Le 
; cur 5 : :: TURN t ReNoRS MANAGEMENT 
SKTNEX: BIC #1 SKTL1 Be Pore 
SCORE: HOY ROUT; J8ERRVEC R TIMEOUT 
18: ADD 84000, R1 i INCREMENT & BY 1K 
#40. Re TEP 
TS (R13 :: TRAP ON TIME OUT 
CMP $177776,R1 $3 Tae 
BNE 1§ ::NO--TRY AGAIN 
SCROUT: #4000, R1 
SSIZEX: SUB #40, Re ss DROP BACK 
MOV RO, SP t:RESTORE THE STACK 
MOV (SP}+, Q8ERRVEC+2';;RESTORE ERROR VECTOR 
MOV (5P)+' J8ERRVEC 
iio R1, SLSTAD ;;LAST ADDRESS 
NOY REPS RG” t RESTORE R3 
i*, se 
MOV (Be) 2° RS t RESTORE i 
MOV (SP)+/R1 ;;RESTORE Ri 
Mov (SP)+, RO RESTORE RO 
SLSTAD: .WORD 0 s;CONTAINS THE LAST ADDRESS 
SiS Tek “WORD 0 ieee THE LAST BANK 
-SBTTL SAVE AND RESTORE RO-RS ROU 


eed ERE See ee ee ee 
sa RO-RS 
ste: 


{UPON RETURN FROM S$SAVREG THE STACK WILL LOOK LIKE: 


tSTOP==-(416) 
:# +2---(+]8) 
1 +4---R5 
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: PART 2 MACY11 27( 1006) 
SAVE AND RESTORE RO-RS ROUTINES 
3# +6---R4 
3# +8---R3 
;#+10---Re 
3#+le---R1 
+ #41 4---R0 
SSAVREG: 

MOV RO, -(SP) 
MOV R1,-(SP) 
MOV Re, -( SP) 
MOV R3,-(SP) 
MOV —s- RY (SP) 

RS, -(SP) 
MOV 22'SP),-(SP) 


v e2(SP) ,-(SP) 

RTI 

s#RESTORE RO-RS 

CALL: esRes 

4 

SRESREG: 
MOV (SP)+, 22(SP) 
MOV (SP) +; 22( SP) 
MOV (5P)+'53(5P) 
MOV (SP) +) 321 5P) 
MOV (3B +, RS 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+'R> 
MOV (5P)+°RI 
MOV (SP)+'RO 


RTI 
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;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;;PUSH Rs ON STACK 

;;PUSH R3 ON STACK 

3s PUSH R4Y ON STACK 

se RS ON STACK 

3;SQVE PS OF MAIN F 

;;SAVE PC OF MAIN FLOW 
;;SAVE PS OF CALL 

;;SAVE PC OF CALL 
;;RESTORE PC OF CALL 
;;RESTORE PS OF CALL 
;;RESTORE PC OF MAIN FLOW 
:;RESTORE PS OF MAIN FLOW 
:;POP STACK NTO RS 

;;POP STACK INTO RY 

;;POP STACK INTO R3 

;;POP STACK INTO R2 

3;;POP STACK INTO R1 

:;POP STACK INTO RO 


5 REREEEEESRELEREEREEELEREEE SEARS EERE RELL ELLA LEER RESESEREREERES EE 
; #THIS ROUTING WILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTI 
;#AND USE IT TO INDEX THR THE TRAP T 


:#0F THE 
#60 TO THAT ROUTINE. 
STRAP: MOV RO,-(SP) 
MOV 2(5P),RO 
TST (RO) 
MOVE (RO), RO 
ASL a 
MOV STRPAD(RO) ,RO 
RTS RO 


NSTRUCTION 
FOR THE STARTING ADORESS 


OUGH THE ABLE 
SIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


; ;BACK 
::GET RIGHT BYTE OF TRAP 
;;POSITI OR INDEXING 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


(SP), -( SP) 


STRAP2: MOV 
MOV 4(SP4,2(SP) 


;:MOVE THE PC DOWN 
s;MOVE THE PSW DOWN 
;;RESTORE THE PSW 


= me a a ee | nn a rn ne ee 
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Lies SY THE TRAD ING TRUCTION, 

11632 ; ROUTINE 

HESS oseeue osee34 éTRPAD: .WORD 2 

l " §T :CALL=T TRAP+1(104401) TTY TYPEQUT ROUTINE 

iigse beeees passes Ha beers Ma TRAP+2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
11637 OS6654 054326 STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO NG ZEROS) 
11838 OS665e 054366 STYPON :;CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS ST CALL) 
11638 OS6650 O545S4 STYPDS ::CALL=TYPDS | TRAP+S(1O440S) TYPE DECIMAL NUMBER (WIT 
11&4 

11641 

11642 OSeEE2 74 SROCHR ;;CALL=RDCHR § TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 
Less Steer at See eee Fee SPRES © TRAPS {OLGGNG10) RESTORE RO-RS ROUTINE 

Lies 056670 Beeaco SCOPE! ::CALL=SCOPER  TRAP+11(104411) INTERNAL LOOP ON ERROR ROUTINE 
1ig4? Osb672 g20040 o20040 oO42S24 TSTMSG: .ASCIZ / TEST / 

11648 056704 pees aaa 5 000 aS2sP2: .ASCIZ vee / 

11650 OS6711 125 O44S16 EMI: | .ASCIZ /UNIBUS PARITY ERROR/ 

11651 056716 Oe0les 40520 522 

Hes Bre Bip Degg See 

11654 056735 116 O47117 O424SS EM2: .ASCIZ /NON-EXISTANT MEMORY/ 

11655 OSE742 052123 047101 

tIESe Geesse peaese Ctssa ON7SIS 

11658 761 16 O47117 O424SS EM3:  .ASCIZ /NON-EXISTANT DRIVE/ 

11659 BEE SEE pusae pes td 047101 

11666 056774 decles 051104 lll 

11662 047125 OS2111 O43040 EM4:  .ASCIZ /UNIT FIELD ERROR/ 

Hin Brae Bn Bly Oa 

11665 057025 les belies os4S23 EMS:  .ASCIZ /SUBSYS TIMEOUT/ 

11666 5/036 p20123 O44524 04.515 

11667 052517 O001e4 
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11669 057058 o50040 051101 i 

Hen Brae Bais ult os 
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ile 076 042504 942524 052103 ; 

11674 057104 O4210S Os0040 051101 

11675 57112 Ose] 920131 051105 

Lies? oer 24 Oued raat 053517 EMi0: .ASCIZ /AC LOW 

11678 057133 123 O42520 O4210S EMI11: .ASCIZ /SPEED LOSS 

11680 057140 o4e040 OSI5i7 00123 : 

11681 OS7146 O4611i O42514 O40507 EMl2:  .ASCIZ 
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;FONMAT FOR 2ND LEVEL ERROR 
IN HEADER COMPARE ERROR 
AND END LEVEL HEADER 
VRC ERROR 









;FORMAT FOR OND LEVEL ERROR 
:IN OPERATION INCOMPLETE ERROR 
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DF21: 


DF 22: 


DF23: 


DF 24: 
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ae 
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-06T-76 10:07 TRAP TABLE Me : 
oo2 000 BYTE 2,0 
oo0c00 OF 2s: ORD Oo 
007 000 BYTE 7,0 
Oe 
062506 “WORD Dhe03 
010 000 “BYTE 10,0 
oo000s OF27:  .WORD 
090 000 “BYTE 3 0 
062210 “WORD DHIO1 
007 000 “BYTE 7,0 
062277 WORD DHI1Oe 
oo2 000 BYTE 2,0 
om Te ae 
063200 DH702 
ode 00 gore 2,0 
oo000s DF30: .WORD S 
900 000 BYTE 0,0 
062210 DAIOL 
007 00 BYTE 7,0 
Beer 000 BYTE bf : 
063260 DH705 
900 000 BYTE 9 
063240 o4 
oo4 000 BYTE 4,0 
poo0gs DF31: .WORD § 
000 000 ‘BYTE 0,0 
062210 “WORD OHIO1 
007 000 "BYTE 7,0 
062277 “WORD DHI10e 
oce 000 "BYTE eo 
063274 “WORD 706 
600 000 “BYTE 0,0 
063337 “WORD  OH710 
003 000 BYTE 3,0 
RWBUF : sREAD/WRITE DATA BUF <AT LEAST S12(DEC) WORDS> 
005015 O20040 O20040 NOTMSG: .ASCII <15><1l2>/ 44% NOTE ¥#/(15><12><12> 
020040 o20040 920040 
Sazeea | BSe0a8 
posois O12 
101 O46114 o4e040 .ASCII /ALL DRIVES TO BE TESTED MUST HAVE :/<15><12><12> 
owS2e O4eS26 O20123 
047524 O41040 O2010¢ 
042524 052123 O42] 


MO-11-DZREN-C - RKB11/RKOG SUBSYS. VERIF. : PART 2 
OZREW P11 0S-0CT-76 10:07 TRAP TABLE 
12410 064736 005015 
153i] 4741 061 020101 -ASCTI 
le4ie O64746 030062 O4744O Oedlee 
iia 064754 B31 086 poate 041505 
12414 O64 7Se4 0201 047506 
iSsie earre Occios Qrosue Dsciee 
le4i? O44S2e2 bae0s 006S0S 
i2e418 065012 Ole 
12419 065013 Oe O200S6 O4e510 -ASCII 
les20 065020 paseO} hori ss eat 
i552 Dense Oecoa ONBGI? 
le4Ye3 065042 O06504 Ole 
12424 065045 O63 Oe0056 O4eS04 «ASCII 
— paiea, O4W4S23 Resi ss ates 
i565? DeeDee Bacioe DNiShE Oaeses 
le4e8 065074 O0ES04 Ole 
le4e9 065077 064 020056 051127 -ASCIT 
in 065104 211i fo 047514 
1243] 06511 = 2040 bet i 
124 0651 1101 O42S14 
1e433 0651e6 Ole 
12434 065127 065 O200S6 051104 -ASCIT 
1243S 065134 053111 920105 e 
12436 065142 O4e101 Oe0131 O44514 
1e437 065150 044107 Ce0le4 047117 
1e438 065156 005015 Ole 
1e439 06516] 104 O44See O4eSe6 -ASCIT 
1e440 065166 Oe0le3 rate ar O2e0ie4 
e441 065174 047524 041 020105 
ete O6Se0e 04. OSele3 O4e105 
1e443 065210 O4E44O 051525 Oe0le4 
le444 065216 040510 O4eS26 041040 
1e44S 065224 052117 pobo 1g Ole 
iS 065231 ieD 0511 pplas; -ASCIZ 
le447 O065e36 04 026' eSe3 
1e448 065044 O4°S14 052103 042105 
a O6S2Se 006 005012 000 
12451 065257 015 pape 1516 HLPFIL: .ASCII 
i5aes 065264 0511 ie3e paeey 
1e453 O065e72 047117 O201e3 047506 
Le4S4 065200 OQediee 0515e5 047111 
1e4SS 065306 020107 O4SSe2 033060 
1e4S6 065314 O44040 040505 020104 
1e4S7 ObS3e2 046101 043511 O46516 
1e458 065330 047105 O20ie4% O44S01 
isis eens Ose Qeeoke gestae ascii 
15a 065356 OeS0Se OeS0Se Seeige 
le463 065364 Oe50Se O250Se d250Se 
le4¥64 065372 Oe50Se O250Se Oes0Se 
le4éS O6S400 Oes0Se Oe50Se Oes0se 
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/\. 


43. 


“4. 


/S. 


A 20 OR 22 SECTOR FORMATTED CARTRIDGE/<15>< 12> 


. HEADS MANUALLY LOADED/<15><12> 


DESIRED PORT SELECTED/<15><1le> 


WRITE LOCK DISABLED/<15>< 12> 


DRIVE READY LIGHT ON/<15><1é>< 12> 


/ORIVES NOT TO BE TESTED MUST HAVE BOTH’<15><1l2> 


“PORTS DE-SELECTED. 7<15><12>< 12> 


<15><12>/INSTRUCTIONS FOR USING RKO& HEAD ALIGNMENT AID :/<1§><1lz2> 


/REREREESRALRERARERSARRERSRRRERAR RRR RRR RRRERER SC LSD C12 















MO-11-DZREN-C - RK611/RKO& SUBSYS. VERIF. ; PART 2 MACY11 27(1006) OS-OCT-7& 10:59 PAGE 239 SEG 0236 
OZRENC.P11 05-OCT-76 10:07 TRAP TABLE 





“MOUNT AN RKOG ALIGNMENT CARTRIDGE ON THE DESIRED /«15)«12) 


Tazo 


PH Remini 
2 
i 


ay 
BS 
22 
eo 


ene 026105 -ASCII /DRIVE, AND INSURE THAT THE DRIVE IS WRITE-LOCKED. /«15><12) 
1e479 065514 O4044O O4e2l 
12480 SSee 051516 OS1i 020105 
12461 065530 O441e4 O52 05204 


13484 S2 OSlie? OS2lll 
eves 7514 O4ss03 042105 
teas teh ASCII /CONNECT THE ALIGNMENT INDICATOR TO THE DESIRED DRIVE, /<15><12> 
15482 peeeos peorss baatae Bede 
12489 046101 O43511 O46516 
12480 065614 047105 020124 O47111 
| 12481 Oe5e22 o40S03 04 
12492 065530 Oe0le2 O475e4 Os2040 
12483 065536 042510 O42040 051505 
| T24Q4 O65644 OS1111 O42105 O4eO4O 
«TENS Desese Owisee O42Se6 OOYSH 
| 55 Seeeet 126 040511 oOS2040 ASCII /VIA THE HEAD ALIGNMENT CABLE ONLY, AND CYCLE UP THE/<15><12> 
{5498 Deeee6 o4es10 O44D40 Ou0SoS 
l 065674 020104 O4€101 043511 
i i 65702 046516 047105 020124 
| 12501 065710 O40503 O46102 Oe010s 
12502 065716 047117 OS4S14 Oo00S4 
| 15603 65724 047101 Oe0l04 OS4S03 
| TEED Deere O¥g103 De01s O6012% . 
tSepe Beeoae period Besity BORTHe SASCII /DRIVE./<15><12 
| $2507 065754 905015 
| [2508 065756 O4>522 050123 047117 ASCII /RESPOND TO ALL REQUESTS FOR PARAMETERS, BY ENTERING /<15)<12> 
| 65764 O20104 047524 O4O44O is 
| TeS10 65772 046114 051040 Os0505 
12511 066000 O42525 052123 020123 
| 12512 DEE006 047506 OeDlee O40S20 
| 12513 O66014 O40S22 O42515 Ouesoy 
«HENS Seeker 01 gecnss 
| Tle Beebse BaSTT? beets bettte 
| 12517 ObEON O4Le4 6010s 04 /THE DESIRED PARAMETER VALUE (NO <CR> NEEDED). /<15><12> 
«12818 Bauee3 pueses penis 
| 12519 Digse0 O45ee 042515 
12520 25204 Oe0lee O40S26 
| 12521 066074 052514 O2010S 047050 


EE 
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DZRENC.P11 TRAP 


05-OCT-76 10:07 TABLE 
l2S2e 066102 020117 O41474 037122 
15353 erie taldins 2505 oes 
1 beeiss 124 04251 ouzsee «ASCII /THERE ARE TWO MODES OF OPERATION : MANUAL MODE /<15><12> 
1eSe6 066130 O40440 O42Se2e 052040 
leSe? 066136 O47Se7 O4644O 42117 
1 144 o03 74 1 
1 1 ll 1 101 
1eS l 7511 O20116 OQed07e 
12531 066166 O46440 047101 
12532 066174 020114 047515 O42S04 
ise REPERE 1 ouet ts 053517 -ASCII /ALLOWS SELECTION OF DRIVES AND HEADS BY TTY INPUT,/<15)<le> 
1 O66ele Oe0le3 O4eSe3 O4eS14 
12536 066220 103 047511 Oe01l6 
12537 066226 043117 O4 2 
ie bee Eee Eee Bol 
12540 See Sch le3 054502 OSe040 
es eee Eos pee Ss 
lest 1 11] 6 «ASCII /AND AUTO MODE ALLOWS DRIVES AND HEADS TO BE SELECTED/<15><le> 
HS Bd lll Baily Be 
12eS4S5 066304 04 OYO44O 046114 
12546 066312 053517 020123 051104 
4 066320 eetie 0S1S505 040440 
1 1] 
1 2 1 105 
Hees eee Dig ese kts 
12553 066357 102 020131 043117 -ASCII /BY OFF-ON OPERATION OF DRIVE PORT SELECT SWITCHES. /<15><1le> 
12554 066364 26505 047117 O47440 
12555 066372 O4eSeD O40Se2e O44 
1eSS6 O66400 047117 O4744O 020106 
12557 O66406 051104 053111 Oe0105 
12558 066414 O475e0 OSelee 051440 
125539 O66422 046105 041505 Oe0le4 
it See Bee bel OB } 
leSbe 066443 111 Q20116 O44S05 -ASCII /IN EITHER MODE, UP TO S MINUTES OF SEEK EXERCISES/<15><1l2> 
1eS63 O66450 O4412e4 051105 440 
12564 O66456 O42117 O°6105 0 
1eS65 O66464 Oe0le0 O475e4 032440 
1eS66 Ob6472 O46440 047111 O5e125 
12567 O66500 051505 O47440 0°0106 
12568 066506 O4eSe3 O4550S 42440 
i es Gee Glee Bil 
12571 O665e6 O40515 020131 O4eS02 -ASCII /MAY BE REQUESTED FOR EACH DRIVE. /<15><le> 
12=7@ 066534 051040 OS0505 O4eSes 
4573 O6654 pect pata, pasene 
12574 0665 1117 O4e4 1501 
ie ee Be Bue Sih 
12577 066571 101 051514 020117 -ASCII /ALSO IN EITHER MODE, A VERIFY OPTION ALLOWS HEAD/<15>< 12> 
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/SELECTION WITHOUT THE UNLOADING AND LOADING OF 7<15><12> 


/THE DRIVE BY THE PROGRAM, WHICH OTHERWISE OCCURS/<15><12> 


/7TO ALLOW MANIPULATION OF THE ALIGNMENT TOOL. 7<«15><12> 


7TO RESTART EITHER MODE, TYPE <#2Z>.7<15><12> 


“TO RESTART ALIGNMENT AID, TYPE <tR>.7<15><1l2> 


“TO SELECT NEW DRIVES IN MANUAL MODE, TYPE <fC>./¢15><12>< 12> 


SEG 0240 


Bi os-oet=76. 


o4 
042101 
0471 





De Ress. VERIF 


047524 
040515 
006456 
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/FOR HEAD ALIGNMENT PROCEDURE, REFER TO FIELD /<15>< 12> 


/TEST BOX (RKOBTA, RKO&TB) OPERATOR’S MANUAL. /7<15><12> 


a TL 


JO3 





114818 
APTENV= 000001 10814 11260 11437 114798 


MD-11-DZREN-C - RKELIYRKOG SUBSYS. VERIF. : Te MACYL1 27(1006) OS-OCT-7& 10:59 PAGE 244 SEG 0242 
DZRENC.P11 05-OCT-76 10:07 trices PREFERENCE TABLE -- USER SYMBOLS : 
ABASE = 177440 22578 2349 2290 4807 
ABORT = 000200 42348 9205 3210 9303 9328 #$SWit West 9431 9436 3441 g449 uss teil 
ABVMX1 003162 36978 
ABVMXe O03164 36988 
ACDW1 = 000000 2349 
ACDWe = 000000 2349 
ACLO.. = 000010 32988 9265 
ACPUOP= 000000 2349 39 2364 
ADDWO = B00000 234s 
oo ooooo0 aes 
ADDW11= 000000 2349 
ADDWI2= 900000 2349 
ADDW13= 000000 2349 
epoWis= 000000 534g 
ADDWe = 000000 23493 
ADDW3 = 000000 Eae3 
ADDWY = 000000 2349 
ADDWS = 000000 2349 
BBW? = DODDDD sug 
Abbie = 650000 5349 
ADDWS = 000000 2349 
ADEVCT= 000000 2349 39 23s 
ADEVM = 000377 22588 2349 2391 
RENV = 000000 e349 0s 23 
RENVM = 000000 2349 2361 
AFATAL= 000000 2349 e352 
ALDRVS 007724 43288 4875 
ALLDRY 015250 4813-4884) =—s«4#98S 8 
ALLTRM 044336 9439s 94468 
ALNCYL= 000365 42278 7351 
| ALNPAK 007451 42968 7266 
| ALNSEK 031770 6410 6631 73478 
AMADRiI= 000000 2349 0s 23 
AMADRe= 000000 2349 839 2381 
AMADR3= 000000 2343 4 3=s- 2384 
AMADRY= 000000 23492 
AMAMS1= 000000 23490 2371 
AMAMS2= 000000 2349s 23 
AMAMS3= 000000 2349 3=—s_ 2382 
AMAMS4= 000000 2349 2385 
AMSGAD= po0000 2249 2357 
2349 4 8= 2358 
AMSGTY= O00000 2349 39 2351 
AMTYP1= 000000 2349 Ss 2372 
AMTYPe= 000000 2349023 
AMT 000000 2349 2383 
AMTYP4= 000000 2349 4839 2386 
ANYDER= 100000 4O40s 7258 8920 9487 
APASS = 000000 2349 = 2354 
OR= 000000 2349 
APTCSU= OOOO4D 10821 


KO3 
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DZRENC.P11 Os-oet- & 10:07 CROSS REFERENCE TABLE -- USER SYMBOLS 
APTSIZ= 000200 4754 = 62S9— 114788 
APTSPO= p01 08 ines 11333 apaege 3 6390 EHEC 
Bb RR OY 
ASKMDE 016156 51s5# $516! Si62 = $167 =‘ 9182 S16? _( $1920=S «Sel? =—ss« S23 S242 5251 S267 3=s_« S286 
S295 S344 = «S416 7&9E 
ASKMOD 024322 6293 «866298 )=—s_«&3038 =8=6317 
ASK 01S4le S0378 S040 S041 S046 S070 S078 S084 ###§100 £5111 $120 8 S145 
ASKTST 915406 4951 $0368 - 
ASTART 923634 2ee0 = 62198 
ASWREG= 000000 2349 
ASeSPe 056704 8967 116498 
ATESTN= 000900 2343 
AUNTT = 000000 e349 8 = e356 
AUSWR = 000000 e349 = 2363 
DeS446 6486 6493 65008 6581 6602 
AUTALN 913060 4641# 6505 
ELTEXR pile oe Pe 6662 #86675 
AUT 4 ST curds 6521 6652 6698 6710 
013310 4EE9#  6679# 
AUTOEX 013267 46668 66: 
ee ne 
a 
A. 003036 35798 SS84* 5S587% 6533% 6562 6665% 6670% 7154# 7217% 7e2i% 7296% 7300%  8236% 
6532 8549% 8558* 9181% S447e 3460% 346e% 10382 
A.CONT 003040 35808 10392 
2 eC ee 
2 * 
Baber ce bo 1800 Ye368 88145 8368 88el 2638 S585 S682 
BAD632 013314 46718 7260 
BAI = 000020 32578 10551 
BAlI& = 000400 32338 
BAI? = 001000 32348 
BOS 037616 8S3e = BS4#9—s—“‘éSSESV 
BOSECT Olle5i “4668 8582 
CK 040670 8143 8366 «= «BBs «=. 9392 
BGNRTY O445S12 gi05 9458 — ss HGH 4S. 
BITO = 000001 21488 3230 3247 3273 #83295 3443 3587 3680 4892 4990 «6=s-46956——“‘i‘7?79S—ti(‘<é‘éi 
8036 98051 8090 ©«—«8l07~—s«@B 11 8203 8308 98323 8354 #8390 8434 9064 10666 
Bt 100 = 000001 21388 2148 
£1701 = 00000e 21378 2147 
BITOe = 000004 21368 e146 
BITO3 = 000010 e135# 2145 
BITO4Y = 0000e0 21348 2144 
BITOS = 000040 21338 2143 
BITO& = 000100 elses elte 
BITO7 = 000200 el3lis e141 
BITO8 = 000400 21308 e140 8 78 
BITO9 = 001000 ele9e 2139 11270 11401 
BIT] = 000002 el478 3048) 8=63e75 444 03588 =s«s3681 =e 2=—sS561 868609 8278 9068 
BIT1O = 302000 Rit 3235 S264 30BE— (is 3335 38 3363 3377 M56 397 “237 DW 
ITll = ele7% 3236 3e6S5 ss 3287—iCisd33HSs‘“(<éi‘éi CR CisiHC—‘id— (Gia (GBS SZ 4H238~=—S «11408 
Eiti2 = 810000 elebs 3038 3c66 893288) 8=63oe3)0 3337 2S 33800 3351 3365 3379 HSB 4239 8979 
| 
| 
' 
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DZRENC.P11 05-OCT-76 10:07 CROSS REFERENCE TABLE -- USER SYMBOLS 
7 
BIT13 = 020000 2less 3239 326 3307 3324 3338 3352 3366 3380 3459 7134 7136 
O42 go4s B1lé 81193 8315 8316 84eS 8428 11255 
BIT14 = 040000 21248 3240 2268 3290 3308 3325 33393 3353 3367 3381 3460 2598 §=611383 
BITIS = 100000 gicne 3241 3242 32693 3231 33093 3326 3386 3461 3539 4240 5226 7626 
Ite = 2l468 3249 3276 3277 3297 3445 3589 82 4229 9072 
ee s senate 214Se 3255 3256 3278 3298 3446 3590 3683 4230 90793 
BIT4Y = 000020 thay aoe 3257 32793 3299 3300 3315 3357 3371 3447 3591 3684 4231 
BITS = OO00040 21438 3258 32593 3280 3301 3316 3330 3343 3358 3372 3448 3592 4232 
6745 gci4- $087 10463 
BITE = 000100 2i4ee 3231 3260 3281 3302 3317 3331 3344 3359 3372 3449 3594 4233 
5077 5230 5250 6188 Sant 6708 6750 6783 6188 8417 
BIT7 = 000200 21418 3232 3261 3282 3303 3304 3318 3332 3345 3360 3374 3451 4234 
4804 4987 4999 598 5603 
BITB = O00400 erioe =e 3262 83 3284 3305 3319 3333 3346 3361 3375 3452 353s 
BITS = 001000 213398 3234 3263 3285 3320 3334 3347 3362 3376 3453 35% 4236 Date 
6922 $094 11360 
BKSLSH 013415 46838 7492 
BLDEXH 045342 9344 $363 36338 
BLWMIN 003160 36 
BPTVEC= 000014 21558 
BSE = 000200 8563 9384 9816 gsg2—Sés«10218 
BSERR = 000002 4228% 5997 6120 8743 9386 ] g4ses 
Se 8 Bk BR OBS ws 
BUFFO O0S2be 37148 4850 4892 4885 4934 4¥gcs 4959 4961 4966 4977 4981 S044 5047 
nn ee ee a 
S425 6867 6871 7495 7509% 7514* 7515 7519% 7636 7638 7658 7661 7653% 
BUFPRT 005472 37178 
B.BAl6= 000001 32478 1054S 
8.B8A17= 000002 22488 1054S 
B.COT = 000004 32438 10199 10545 
B. 000020 3seSOse 8 5454 S4sé cyuce S466 9583 gses 9587 9531 10:99 10545 10629 
CART 011202 44588 7840 
CCLR = 100000 32428 10152 
COT = 002000 se3s*e }699S58)0—s(«iosos 610565 10616 10639 
CERR = 100000 32418 9353 9378 98s4 9913 9972 ©610154 10205 10520 10576 10664 
CFMT = 010000 3238% le 964S gsss 10508 10565 10616 10639 
CHGTST 015630 5052 508i# s0e8s 50 
C 031530 6342 6601 6674 72948 
CHKITR 032176 5517 5703 5780 S868 5969 ose 7408¢ 
ST 015342 4857 4940 4983 5000 50038 
033276 S311 o3 77178 
CKMEM1 036310 5747 8337% 
ME: 036322 58 83418 
036330 8340 B3438 
= 000105 as018 
= 000040 8s 
L 031070 7159 71768 
CMOTO = 000100 34498 9228 9549 9715 
UF 0347 5922 80778 
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DZRENC.P11 OS-0CT-76 


j 
a 
i, 


ae 


4 
2 


Stetetatatet 
& 
a 


4 
ast 


Poe 


C.SPEC OSe0le 


a 


SEIRRERE 
“Gain 
ae 


DFO3 


BBR 
SRe 
PRRR 
BE 


ee ee Se ee ee ee ee 


PRRVBVRRF 
Sem cwrw-o 
g 


10:07 


le3258 


: PAR 


121878 


2630 
lees0# 


Te 


9982 
9504 


8895 
8896 
9002 
5609 
6127 
SSS 
8871 
10592 


9398 


2636 
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10218 


8897# 
8898* 


8944 


5557 S646 


104258 
10595 10602 


9816 9982 
9418 

5097 5118 
2474 e582 
2480 2486 
2606 eble 
2834 8s8 
121638 

2642 2648 
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S648 
10606 


10218 


e 
121488 


2654 


6093 


10623 


2888 
2498 
2726 


2660 


6438 


10645 


12134% 
2504 
2732 


12237% 


6685 


10650 


2510 
2738 


7888s 


10680 


2516 
2744 


7889% 


10669 


2522 
2750 
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2528 
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DZRENC.P11 05-OCT-76 10:07 CROSS REFERENCE TABLE -- USER SYMBOLS 
DFel mp 2786 1es08 ae 
brs 4514 sos 16333 2804 123488 
DFe4 O64S24 2810 123538 
DFes 064530 2714 8079 8133% 98347% 98373% 123568 
ee en ied Hee 
beso cea £39 * 123758 
l 4614 * 6984* 123868 
DH1OO §86©- 062004 2412 2418 2424 2430 2436 2442 244s Eso 2460 2465 2472 2478 2484 


e490 86 e496 es02 82508 e514 cw fe o% 8632 ot sy 2556 eSte 


See | bteu «Bern Bere«| Stee Skah Soke SFIS BEG BPH BF 


2754 2760 2766 2772 2814 2820 2826 2832 2838 2850 2856 2886 2892 


4 ? 
DH1O01 062210 ge28 113328 15335 12150 12165 12182 12189 12204 12219, 12239 12252 12265 12278 
12297 12316 12339 12366 12377 12388 $ 
DHI02 062277 1 12139 12152 12167 12184 12191 122068 12221 “12241 ‘j2254 12267 12280 
12299 12318 12341 12368 12379 12390 
DH103 062315 2874 119888 
DH104 062340 119928 12327 12345 
DH1OS  O62026 8981 119538 
DH10& 062360 # 1234 
DH200 46 062051 119578 12141 12154 12169 12243 12282 12301 
DHeO1  O62402 119988 12143 12156 12171 12245 12284 12303 
DH202 40 062471 # 12158 12175 12286 12305 
DHe03 +46 OB 2S 120118 12160 12177 e292 12311 12361 
DHeD4Y 063371 # 12247 
DHSOO © 062073 119618 121 
DHSO1 062131 119678 12173 12290 12309 
DHSO2 063427 120988 122 12273 12307 
DHSOS }«6©- 063470 12104" 122 
DHEO]  O62602 120218 12193 12256 12269 
DHE02 062624 12024# 12197 
DHEO4 062671 120318 12208 12223 12230 
DHEO41 062724 8583 120368 lecl0 12225 12232 
DHEO42 062753 2808 120408 
DHB0S 062771 2784 120438 12212 
DHE0S51 063006 120468 12214 12332 
DHB0B 063043 120518 12195 12199 12258 12271 
DH607 063071 120558 
DH701 O63111 8078 8132% 8346s 8372 12058" 12234 
DH702 0632 2262 120688 les2e2 12372 
DH703 «063214 120708 12370 
DH704 06 6941 120748 12383 
DH70S 063260 12077% 12381 
DH706 063274 120798 12392 
DH707 6983 120818 
DH710 063237 120868 12394 
DH711 2089% 12320 
DHBOO 4s 121le8 12350 
Ot = 6000 32408 10002 10674 
TSPLA oot1s 32og78 474" “4750e 247% 6255* 11247" 11421% 
DISPRE 174 celle 4 6255 
OL? = 19009000 32698 9330 9810 9940 9976 10216 
DLTFLG 003132 36738 S99le 5995 6006 









#58 


Soe: 
8 


a 


ORVTST O01453e 
DRVUSE= 000001 
ORY = 000200 
DR.CLR= 000005 
DR.SEL= 000001 
DROXDP 007673 
Dae = 177870 
s 
DTBAII= ea 
OTE = 910000 
OTYE = 000040 
OTi00 063570 


ee 
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479° 


10588 


S433+ 
6539 
6723 
12117 
cece 


68S7# 8864 
S440# S44] 
6S41#  §563# 
7162 7163 
8869* 9074 
SS82 43-5586 
6394 6439 
6611 6615 
7298 73e2 
8280 8283 
10058 § 10118 
8943# 8947 
10092 10223 


8868+ 


BO4 
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8874 


8915s 
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SES 0247 
9175* 9eS3e 9518 Sele 
611E 6133 6336# 6430 
6618 663% 66655 £677 
7263 7234 7303 7311 
6987 6119 6123 6140 
6520 6527 6538 6580 
637 6704 7161 7219 
7364 7376 7392 7797 
S461 9813 9548 
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2755 0 2761 
5284 
OT102 063606 155380 
Broo Beak ie Rr} mets 
crete 2863 121248 
OT 063634 121258 
DT601  O63654 2785 2791 
OT602 062662 2713 «121298 
DUACES O1O4I7 43888 | «4776 
DULACS 003126 26698 47038 
DUNPAS 023506 5442 sg 1878 
DZREN O07024 youze «4767 
ECCNC = QO0040 usiee | «403 
Ect = 020000 23248 
CH = 000100 35818 9401 
ECOBAD Oe7ae2 5071 218 
EMTVEC= 000030 21588 4725s 
eM 056711 2411 116508 
10 057154 e453 «116778 
EMI00 061235 2801 118848 
EMI01  O&1260 ee07 «118888 
EMI02 061336 2813 118968 
EMIO3 061410 2819 119038 
EMIO4 061436 2825 119078 
EMIOS 061460 2631 119108 
BMI 061513 2637 «119158 
I 061546 2843 119208 
EMi1 057132 2459 116798 
EMIiO 061613 2849 119278 
EMI11 O61646 2es§ 119328 
EMII2 081667 2861 119358 
| M113 061722 Peas = 119408 
| EMIS 061750 2691 119448 
| EM1IS 061765 2857 = 119478 
EMIB O57 146 e465 116818 
EMIS. 057167 2471 116848 
EM14 057211 2477 «116288 
Erie | Seveeo Sues tieees 
Enis 057275 2495 116988 
EMS sO 6735 24i7 116548 
/EM20 057316 2501 117018 
EM21 057333 2507 117048 
| EMee 6-5 7363 2513 117078 
EM23 0s 057375 2519 117118 
EMD4 6 OE 7426, 2525 117168 
|emss 86 OB 7446, 2531 117198 
/EMSE = 05747] 2527 117238 
Ems beeges Sa23 (i ices 
057526 2549 | ERO 
| EM3i E7553 2555 2675 
Emacs 057574 2561 117368 
E33 087615 2567 117398 
j 
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2767 
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117298 
117338 
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2827 ss 2833 2833 ess! 
121288 
9243 
6403 6466 6434 6529 
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2773 261s 2821 

2803 2609 2869 

4774 4945 7410 

9982 610216 

6316 6338 6367 

6230#  6231% 


2857 


£661 


2681 


6699 


SEG C246 


2887 


£7978 
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aE 
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a in ue: 
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capers 
Naat 


Fae 
~ 5 ideo 
MmruUuioe 


28 8 
FUSE 


0& SUBSYS. VERIF. 
10:07 
2573 2873 
cece 117468 
117518 
2531 117568 
e4e3 = 11 bbe8 
2s97 117628 
2603 117628 
e609 117758 
2615 117808 
e435 =—s« 1 16658 
2657 117858 
2663 117898 
2681 2687 
e441 116688 
233 117968 
2699 «118018 
2705 118088 
2621 2717 
2627 2723 
2633 e723 
26393 e738 
2645 2741 
2447 =—s« 116728 
2651 2747 
e753 = s«118478 
e759 ~=—s«1185S38 
e765 118608 
e771 = 118658 
2777 = « 118688 
2783 §=61187e8 
27893 e735 
4763 4874 
45188 6324 
46228 6376 
43518 $037 
45868 6348 
443Se 5413 
46938 7595 
20818 4704" 
949 
37198 9113# 
3578 6167 
35793 $587 
9447 9462 
3662 9494 
eiSi# 4739 
6952% 69628 
11389# 11391 
$1788 9240 
43688 S1S4 
35878 10157 
25968 10231 
35318 9883 
25988 
35818 93064 
9820# 9683% 


117438 


117938 


4eS4# 


S114# 
6169 
5674 


4740" 


8 
9693# 
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69508 6996 

6290# 7389% 8922% 8924 8927 8929% 
12117 

7155 89198 9448 

6562 6670 6718 7184 7221 7300 

47S1# 4759% 4760% 6244 62e4S*  S256# 
6973 6974 6977# 6978% 6993#  6994# 
11502 §=611503 11507# 115le# 11Se4* 11529% 
9383 9467 

1008s 10112 

9072 9079 9083 9087 9091 9034 

9964 9986* 10009 10015* 100478 10088 
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9062 


8236 

693S* 
7000# 
11538% 


9097 
101le* 


8475s 
11548 


9100 
10157% 





9104% 
10209% 





9782% 
10231# 
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DZR6NC.P11  OS-OCT-76 10:07 CROSS REFERENCE TABLE -- USER SYMBOLS 
19370 10604# 10658* 10666% 10679 

E.DLT = OOO400 SoSe 9964 

E.DPAR= 002000 35978 9893 10370 

E. ILLDs 000100 35948 10658 

“MOS = 100000 35998 9782 10209 10604 

E.NOAT= QO000e2 10009 

- SCLRE 35928 10679 

UATT= @ 1001 

“ UDAT= 308 9986 

E.UNLD= secoee 38 2301 10021 100% 10106 

FC OoSe4¢ 3385s cess ssss.StS4)=Os«S97S~=Cé=“‘éwGO7B~Oti«éGSLLL?.-s—“‘<ié«‘i EHR «OCH 
FINAOR 034326 79628 8138 8361 ! 

FINCYL O0S564 37418 799% 8140 8165 8171 8362 8394 8400 

Ft 14 seve 7 

FINSEC ? 38 * e142 8169 8173 8365 8398 98402 

FINTRK OOS5566 37423 (7990s «B14]~=Ss«@B1E?)~=—s«S172s«iwH“YSC(iéGH]_C*«é@MSOLLL 

FMTE = Q00020 32798 S292 «10218 

XDP 570 «$7860 s«S874 Ss 70578 

Pe oat RS 

FORMAT li 3ee08 W60e S466e S660 5979 6081 7164 ###7831 #7972 #«2&3ss2e BSH 8651 
F 7238 «S4ble Suo7# SSes* SSe2 ssss SS6ESi‘séGY]:«COCSESOH# OCSEECH OHHH 
FR Bee 525 Evga" eceg* 2352" ade 
ee ee oe a oe 
| GIVEID 24214 £o38e 6309 6330 6355 6385 6455 6484 6528 6649 6692 
GNS = #eeeee 2210 11635 11636 11637 11638 11639 11642 11643 11644 11645 
| lexan” Bessie S538" 9420 «6028 
| STPRMS O40366 8719s 8751 

GTSWRG 027614 4792 «£8898 «= 7482 —Stsé2SY 

GTO 040400 8715 8718 &72c8 
| HALTER O12132 4ucsie 
| HRC = 600900 32838 
| HR-AD 003060 36218 9934 9938% 1062cs 

HDR-CT 003062 3b2c8 «942% «10631# 10634" 

HEADNG 013012 4E338 6414* 6625 

HEDPOS 012653 ub15e 6411 6632 

HEDSEL 013005 uese8 6415 6636 
| HIERAD= eeg # 6981 

HIGOCT 4 3716 ae 5389s 7566s 7569% 7722 +7737 «#397742 «#7749 
| HLPFIL "65257 b2 124518 

HLPOVL 02136 36788 476% 6292 

HL TPRC S876 4917, 6943 «s«gSS2—i‘éiSOCé«éaSH?:SC<“‘é‘ét =O 

HL TRO 52 43208 8248 

HVRC = Coote opens 10°63 ers 9359 9816 9982 10218 

= 

HVRCER= eater 42298 1 9485 
| HLHEAD 03065 36258 
| IDRE = 002000 32668 9315 
| IDENT 011435 449Se 6291 
Ri 2 00 32318 49 bS7e 7229 «#27316 «= 949—Ss—«37H~—«s10Lb2 «10226 «=s10S24 1055S =: 10621 
| Lee 1 Ze73e 92 1021 

ite > 32768 ©9284 
| INCRMA 037306 E750 «S628 «=Css«CSB3H)0Os«S92EOsaH978 
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1C688 
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ah as 


ae 
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8636 8650s 
£90Se 7022 
4539 S451 
r1iS48 7206 
4952 S055 
(oy 5063 
ee ee 
36208 abet 
10385# 10389# 
32218 
globe 4723# 
l 10039 
$733 9837 
9871 9921 
£160 9864 
$968 9920 
3348 6135 
Sges 986Ss 
$8648 9932 
3802 gess 
oe Gn 
36248 B5a7 
$873 9949 
$730 9807 
$784 9822 
9959 99S3 
1008S 10090 
9876 10081 
10204 102S54s 
10Ce3 101068 
4777 6270 
geige 70893 
1858 6911 
State 
1518 
21328 
21938 
1948 
1958 7119% 
1968 11532 
21788 
21738 
21808 
el8is 
elses 
21838 
gigs 
1858 
4782 69318 
* 7363 
S48 65530 
26318 
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8678 
cits S20 57 5783 
S322 | 3259 «C58 z 
Sisss 8244 
soes 5068 5210 S2le 
ergs «Been §= Bees BRS 
eces 82 8233# 8242 
32 ges 9881 9902 
10438* 10524 
4724% 6228%  6229% 
100S7 100668 
99708 
101528 10224 10584 #10649 
102998 
103038 10573 
$251 10438 10439 
986728 10000 
97728 
9789 9792% 10163% 10460# 
10028 10042 10084 #10108 
9834s 
5$€32 3860 9872 9877 
9362 9966 9se8 10004 
100993 10102 10109 10114 
102408 10594 
67388 
8450 
11488 11516 
7137% 8035* S8044e  8106# 
8137#  8360# 

5531 6277# 
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YMBOLS ham: 
$871 §972 #6055 6077 6340 6474 E642 
S215 5236 5237 5240 S439" eee £205 
cee Ee Fees Eouee 76 E545. F525 
5529 i 1004S 10086 10097 10110 10381# 

10614* 10687% 

101948 10343 10350 10357 10364 
g9gso0 «988B—(<i‘éiwSSCSCi‘iSCi? S922 S994 
10011 10017 10023 10043 10050 10062 10082 
101238 

8114 118% 98307% 8317% 8353% 98375 9427s 





LF 
SOF BE 
034 
LODSEC O34162 
LOERAD= | 
LOOP 
LOOP. ~ 
LOWOCT OOS46E 
Le 00551 
TCYL= 
LSTMEM 007131 
LSTTRK= O0000¢ 
LSTTST O1551e2 
LT ae \- 
MS HOSS 
MAHILM 005572 
MANAL O24624 
MANALN 012556 
MANEX 025076 
MANEXR 2471 
MANUAL 
MANVR O2S060 
MANVRF O12616 
MAPHOO= 1 
NAURDE 
MAWRDC O104S5 
| MAXHIi= O00000 
MAXHI2= 000000 
MAXHI3= 000000 
MAXHI4= 000001 
MAXLOI1= 062031 
MAXL 017500 
MAXL 112160 
MAXLO4Y= 022370 
= 
oF 1 
MOF Y ie re 
MOS = 001000 
MEMABT 003135 
| reeves iets 
MENTE 14 
| rERD = so i000 
i SuSK= 
| MIOOFR toate 
| MIND = Bonsan 
| MINHIi= 000000 
| 





oe VERIF. 
5740 82958 
bose ag 
Sea, Si98 
20628 10864 
36878 
S315 80108 
4321 5089 
5101 Se7e2 
5880 73398 
ait Ge 
cechs bees 
6SSie 6553 
s7158 aie 
aoseg Bass 
4e5Se 6836 
42268 7253 
we. coses 
Soi3, | edSe 
oecee  boiee 
£360 63738 
46048 6374 
£363 64288 
S4e 6433 
l2 8 
366 64218 
46108 6422 
21998 7 
21988 7039 
43948 
42168 
42188 
42°08 
4eee8 
42158 
42178 
42198 
42218 
33198 
S38 470e% 
44308 #7629 
# 9780 
36768 6990 
22008 £6954 
O38 6982 
ane 4761# 
32138 
33218 
86738 8746 
32188 


: PART 2 MACY11 27( 1006 
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5824 5919 82998 
$223 9340 9346 9365 
10870 

Sos4s 

52778 

S3sex 7565% 7570 7727 
S468% Seo6* ssS0 ssSe 
7252 835 

7836 

ae 5733 vr. =, 
egies > Ears Baar 
6467 

g89e 

4711# 4800 4919 50393 
10207 10582 

6960 7001 7009 

47628 
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9371 


7729 
S642 


5806 
oe? 


S282 


9462 9519 
7732 7735 
S644 SeS9* 
tt sels 
Sei” Fas 
$523 6282+ 


7740 
Stb3+ 


5834 
58" 


7212 


Fp 


7412 


7748 


5901 
8717 


8224 


SEG OeSe 


5902 
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ye 057467 42138 
= 


OFFSET= 000115 3e0Ss 5581 10495 


900260 i678 4782" 47838 
I 55 S333 Teles 
a te 
= 
MOLHDL Bese Elle 1588 
Ba nan Se 
M. i 8 
MICOIF= 017760 33608 
MIDPID 053574 108138 
MIDPIN 053534 logs4e 
an a 
mpegs Bese Se ipe24e I 
MIDPY] OS3656 10929 109368 
M:DPYD QE3G7E 10935 109408 
MDPYG 053730 10947 109528 
M:DPSO 053742 10922 109568 
MCDRV = D00007 33668 
MOHEAD= 007000 33928 
MID = 000003 33678 
PAR = 100008 33868 
MISECT= 000760 33918 
MSER = D77770 33908 
NMI OUSEIe vase 
NEDO = Bf sree cme © aziz, gezes«79S~=««873C«1OeI& «(10S 
NEDHDL 027054 B533 Eviee «721772 
NEM = OO4O00 32658 9810 9976 10216 
NEWORVY 017470 cq3ee «S446 «0186951 
NEWMSG 007337 a2818 
NEWON 05530 Track 510s psa GSH © GEN? GSES EERE GE7L«G7aRe 7218 7202 7297# «7301 
NEOFS? QOSEaE sage eves | SESE SEY (S838 
NMTSTS= 37ese «8818 «= SeeSSC*S704 )=ss«S7B1)=SssSB69)SCS970~—=sG 03 
NOCHK = O00400 ‘ 10512 10553 10580 10598 10619 10642 10651 10685 
NODRLK 012172 8 73308 
NODRTS 007571 43118 
NOFELS” Bt iEyt auece | cooe | /be3S S36 psa 
NONEXE 612554 usdee 
NORTRY 003133 3749 «892% 7158" 9490 
NOTALD 010510 |  oos §& 5191 
TOFT 016752 5270 
NGS aay Wyo, 1ea8a8 
| NOTYPE tte ap538 git 4773 
NTREDY poste 2918 7238 
Wy basse pioce 
IV ieee" 722 
NXF = O00004 32778 
OCTBIN 053014 5122 «5306 «= s«S386«=Ss«SW2&)SsC«GB72~=Ss«s7669 = LO 168 
| 
a a a 
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DZRENC.P 05-OCT-76 10:07 cROSS REFERENCE TABLE -- USER SYMBOLS 
OF INUS 1g 37278 
OFSHED | 11300 44748 5563 

= 000004 32978 
ONLINE posses aaie 6509% 6547 6557 a): 

il 

003121 36648 
OPI = Q20000 32898  5&72 563 9334 gelé 9982 = «10218 
OPIERR= 10 42308, 9336 
OPNLST O1664e 5173 Se63e 5268 5275 
OR z seb ls 
ORE@SW= 000020 36848 
OVLODR 007161 42608 
O.WAIT oe 36018 . 3716 9720 9830% 9834 gesox 9916* 9929% 9944* 10488* 10548* 10610* 10627% 
PACK = 103 32008 7249 
PARMDE 010371 43848 5157 
oe poeeee ee tee oF 9 g708 8721 9446 9511 9562 9593 
PART = aieth z0tet 2014 + ~.202 204e 2051 2215 2219 een a708 7s 37693 3780 

aoa, «| SeehBRECSERSSHBLR RLS BUSS HSH are) ie be 
5483 ie 6218 7070 70893 7276 7850 7897 8210 8278 

Pants} bosise ubeas 4769 «287 
PAT = 000020 33158 
PATRN 005534 37348 S71S* S7S2x Se8ix sss3* 5905 8012 8083 8190 8714 
PATOO 006024 38678 8014 8029 goes 8100 
PATOL 4 38898 
T0e 006124 3311s 
PATOS OO06164 39338 
PATOY O06224 3395S 
PATOS 006264 8 
PATO& 006324 39988 
TO7 O06364 40208 
PATOB  O06424 40418 
0S O06464 40638 
PATIO | 408S% 
PAT11 OO6S64 41078 
PATL2 41298 
PATI3 OO6664 41518 5987 6084 
PATI4 006724 41738 794! 
paris 764 41938 5984 75396 7674%  7680% 
PBLK 102 3645# 9713 9800 9826 9994 10019 10437% 
PBSVAL= 001000 34538 10375 
PCA = 32228 
PCD = 010000 33238 
PCLKF 0031 36658 
PCVEC 1 3692 
PFIFTN O1OBEE 44218 5233 
PGE = 002000 32648 9280 10216 
4 = 020000 3307% 

= 
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5901 
porn 


10453 
10S6S* 
10641# 


OS-OCT-76 10:59 PAGE 257 


5902# 
8690* 


bees 


9589 


bavee 


11339% 
10497# 
9552 


9123 
6084 


7023 7025 8031 8102 
8691 8692 87lex  8712% 
c 
2505 Efeie «= S5ee Base 

7732% #7748% 7749s 

7720 

7 113940)0—s 1134 

Sau 4390 434 * 9722 
11340% 

10498 

1003S* 10036 100S2* 10053 
7046% 7254% 7837%  8274* 
S741% S74Se  S82l* # 
6126 6166% 6383% 6388% 
6579% 6589% 6593 6608# 
7el6*# 7249% 72S51%  7269% 
77% 78 7924* 82 
10463 10467 10479 = 10489 
10647 10656 

9645 9867% 9919% 9957% 
10S508% 10510% 10514# 10515 
10568 10570# 10571 10576 
10663% 10664 #10673% 10674 


6325 


10431 


10366* 


8531# 


9959* 
10539# 


SEG Oess 


8184 
8717# 


6349 


10432 


10574 


8S43# 
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0: 
P.CSiH= 000007 34358 nen? Bn feog 7164% 7256% 7830% 8S2le 9585"  9587% 


19138 07 1 1061 1gbs? 1083 
P.CS2e = 000020 # S669 6 128 3 3 ele 9214 9220 9222 
p.c ante gE ge gar er ye ipeee a. re. re 
egsey 1#  6078% Togs Brive 438% eebes 3355 Ri és ait 
B443% 8448  85e3% 8625 8679 9116 gssex 9955 10533 
P.OCYL= 000030 34738 _ 8629 8675 $12e9 §=s_: 9387 9602 9634  i0077% iosits 
P.DRVN= 000000 4298 © Boog 07# Bi ap 6139 6514% 6536% 6588% 6605*  6618% 
eve 984 10020 6101 10435 
P.DS = 000036 34768 =§69135 9265 9269 9320 10080 10307 10588 
P.DTS = 000026 : sree , 1% 8633 8676 8677 9130 9388 9390 9573 9605 
¢ 
P.EPAT= 000062 # 311 * 10455 
P.EPOS= 000060 34858 9410 9870% 
P.ER = 000034 3475@ 5672 8563 9136 9201 10079% 10308% 
Bb’ peers OS0006 S448 S580% 10497 


000014 34398 $982% 6085 9228 $241 3423 9428 9433 9438 9549 
9690% 9897 9901% 9998% 10021 100e5* 10038* 10056* 10066* 10092 
10223% 10375*% 104SO® 10487% 10511# 10512 10537 10543 10549 10553 


10619 10642 10651 10685 

P.SECT= 000004 si3see S528 5550 S5Se# s558% SS66* 5623 S642 Ses4e S649 
7916 7929% 7968 B444e 852e8%  8537% 98538 BS44e s8ss4#  g8s555 
g581% 9956 10492 10534 10636 

P.TRCK= 000005 34338 $5e9% $543 S547% 5548 SSS3% SS64* S612 S6Si* 5652 
7253% 7836% 7919% 7921 7926 7927 7982 B44S* B8Se4e 8626 

P.WC = 000012 34388 S721 S72eS* Se800e Ss04e sssgx Se93* 5978% S931* 6080 
8e75* 8499 8530% 8684* 8710 8747 $121 10532 

P.WCR = 000022 siege $131 10674 10304# 

@.INIT= 040000 34608 

= DO400 eh 9258 9263 9308 9313 9318 9323 9457 
RDALHD= 000164 32ei88 9846 
RDCHR = 1 6295 7458 =: 1164e8 
03227e e8 7e46 4943 5038 S082 5109 5159 S265 $293 S342 
RODATA= 000121 32078 5745 5825 $920 6004 7251 7834 8S2e 
RDGATE= 100000 33cbs 
045062 9345 $370 95718 

ROHEAD= 000125 32098 5452 9588 9960 610641 

RDSTAT= 000141 32178 6126 6589 6610 7216 7295 7363 77% 9547 10561 

ROY = 000200 3e3e8 6158 $453 10518 10571 

RECAL = 000113 32048 5656 6383 6388 6393 b446 6453 6458 6463 6519 
6703 7269 7334 8238 9459 10504 

RECODE 005474 37188 5997 6120 7258 7388% 8145 8368 8740 8743 8821# 
9177% 9178 920S* 9210*% 9231 9233 9258 9263% 9303%  9308% 


9328 9336% 9340 9346 9361% 9365 9371 9386% 9393 9396% 
yal TA S4ebe* 89431e 9436% Ble 9449 945S*# 9457 9463 946S* 


. 999 19# Sl# 
REDBSF 037354 S471 geigs _ 
REFNEM 037204 5994 84708 
REISSU 003130 3671 9076* 
REPLPK DO7E0e Ssars aoe 
REPSUP 042206 £010 6137 6151 6162 6931 6975 8082 8348 e540 Sills 


9591# 


6&66* 


9606 


9715 
100°%6# 
1o580 


S414 


9183 


7162 


9828 
10106* 
10590 


6079# 
8681% 


tie 
7255% 


6858 


6691 


8920 

9318% 
S403* 
387% 


SEQ Oesé 


7207% 


9641 


9862% 
10118# 
10598 


7833# 
9119 


6630% 
7838% 


74528 


6696 


8930* 
9323 
9416% 
9432 


a 
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RESREG= 104410 6842 6923 7048 7102 7761 7819 7906 7930 73947——i—s« 7994 8063 8144 8205 
8284 8324 8367 8435 8519 8615 8640 8698 8726 8822 8907 9047 9162 
9514 9563 959% 9653 10988 11040 116448 
RESVEC= 000010 elses 
RETANL O44664 9181 9460 
RETNML 044702 S676 6731 8S67 9182 ae 
RKASOF = 16 31858 9540 asee 9926 610 10261 10309 10498 10523 
RKBA = 31808 9539 1025 1030S  10531# 
RKBADR 2S0 42708 48ee 
RKBAS 003026 Rosy 4803 4807# 4621 4yge4e 7156 9348 9373 9452 9501 9S32 9709 9778 
RKCS1 = 000000 178s 4937%  6576% snitse Rc 9e48% 9349% eae Roe shoe ietite ae Rae 
* % * * & 
pO a aM SM OU 
RKCS2 = 000010 31828 9535 9779 9939 10197# 1025S 10303 10466# 105Se# 10S63* 10613% 10&37# 10662 
RKDA = penne 31838 937 gss6* 10258 10306 1049e# 10534" 10626 
RKDB = 1888 S463 S464 9350 9351 9382 9375 9376 9377 9935 9936 9937 
RKDC = 000020 31868 9536 
RKDCYL= 000020 31878 9955 10262 10311 10491% 10533% 10635% 
= 000012 31838 9453 9541 2804 10259 10307 
RKE 000030 31938 9870 10266 
RKECPT= 000032 31958 9869 10267 
RKER = 000014 31848 93542 9813 9979 10260 10308 
RKMRi = 000026 31898 9947% 10026# 10263 10340# 10347% 10354* 10361* 1046e% 
RKMR2 = 000034 31908 10264 105-74 
RKMRS = 000036 3i9ie., 1 10575 
RKPAT = 000032 31348 
RKPOS = 000030 31328 
RKPRI 003032 35778 8 4781 4812% 4831 4847% 9708 10432 
RKPRTY 007310 42768 4836 
RKVADR 007270 42738 44827 
RKVEC 003030 35768 4779 4B08% 4809* 4826 4829% 6272 
RKWC = 000002 31798 9538 10e56 10304 10532 
RLS = 000010 3eSb8 i06le 
RNDADR O34lee 6437 6684 78878 
RNDLNG= 016514 2e4e8 6434 6659 
RNOSHT= 002734 42238 SS 
RUNTST 017362 $193 S4ile l 
RWBUF O64640 3747 5568 5710 5787 5875 6002 6003* 6008 6012 6988 7254 7261 7837 
7842 46=67902 «Sis 7904 «=s«i801&—<i«é‘éFCKBOCBE7H—BHNGCS712~S «123978 
RWNRDY 012755 46278 7367 
R.ABNL 051052 9721 9831 9906 9923. 10101 10121 103818 1059) 
R.CONT 051076 9783 9821 9885 9894 9965 9987 10010 10016 10049 10089 10113 10158 10210 
a oe ae ee 
SAVPAR Basi %e 37038 7035# 81 B30? 8353 
VPRS O055S0 373 87 8720 
SAYREG= 104407 6810 6909 7021 7081 7084 7717 7794 LaF) 7917 7939 7962 801 8077 
8139 8266 8295 8299 8337 8341 8362 849 8577 =—s_ 8624 8673 870 8719 
8811 8883 8942 9060 91le 9174 9531 9572 9633 10973 11014 116438 
SAVWRD 003200 37048 6135 6164*  6165# 
SAVXDP 030530 $712 5789 5877 70818 
SCLR_ = O00040 3e53# 10662 
SCNORY 031116 5007 72068 
SCOPER= 104411 5748 S9e3 11645s 
SCOPE] O5S460 113588 11645 
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SCRACH 005532 37338 4e98e 4e99e 4900 * 4 i 4 S8§ 5 S9S* 6655s # 
Se A, OE, A, 
SECNL1 010477 43988 5181 
SE 010Se7 44038 5185 
SEEK = 000117 se0és 5578 6058 6086 6435 6681 7347 =: 10479— «10489 
SELDRV= 000101 31998 6537 6667 10618 
SELECT 905524 37308 45794% S815 5837 6508 6583 6596# 
‘SELPIS 9107e4 4468 i. 
1454} 44608 3 7841 
17126 5176 $3398 S345 $350 5394 
SETTUP 032130 $516 $702 5738 $779 S867 S913 S968 6051 73868 
TUPM 037100 S717 865795 = « S88S = SHH 8 
SIZMEM 027334 4795 68108 
SKI__ = 000002 32758 
011237 44648 8613 
SPACE] O134e6 46898 5106 5290 S62 5633 7537 7645 
SPACES 013425 46888 Sbee. 8594 8600 8989 8993 8996 8999 9019 3024 9039 
SPACES O134e4 46878 S617 
SPACEY O13423 4686s 
a ne ee 
= 2 
SPOLSS= 000020 32998 9269 
SRHTBS O0405e6 877e8 8813 
SRTSPL= 000111 3e038 6593 6623 7375 10501 
SRO = 177572 el7l8 69ee# 6932 712e6% 712e8% 7130% 7132% 8036 8051% 98107%  8203% 8308%  98323% 
8354 B4Y34e 11513 115e8# 11535 
SRI = 177574 el7es 6933 
SRe = 177576 21738 6934 
SR3 = 172516 el74e 5755% S843% S931% 6921% 6937 11525% 
ST 005672 38038 S469 
STACK = 001100 2e0sbs 47el 4872 5437 6226 7386 7387 8237 1134e 
TALL § 034040 78588 
STALLS 005502 37el# 4791% 4873% S1SS* S469% 6284* 7867 
= 177774 2067% 
017444 S285 8 S418 
6109 8473 8859 88838 


see0s 5588 6166 6579 6614 7160 7321 7391 9502 10656 
63468 6368 6395 6449 6465 


37008 Qe 

37028 

36998 7753% 7755 
37018 

33098 


$739 5818 5914 87078 8752 

2ee8b% 4719 4741# 4743 4749% 47S6% 6224 6246* 6248 6254* 6261% 6268%  6269% 
0 8161 8188 8278 8390 8417 8952 8979 9007 11248 lleSS 11267 

11360 §=11383 11401 11408 ‘ 


11270 

eelee 4749 #6254 6268 6889 6891 6894 
42758 6892 

21208 

21108 2120 

21098 2119 

el0ss e118 

21078 e117 
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Swoy = 21068 2116 
SwOS = OOOD4D Sines 3118 
SwOB = 000100 Sipds §= 3114 
SwO? = 000200 51038 3113 
wos = 000400 51028 2112 
ewo9 = 001000 S101# 2115, 
Swi = 000002 51198 
SwiO = 002000 51008 
Swill = O04000 50994 
Swl2 = 010000 50988 
SW13 = 020000 Soq78 892 
Swi4 = 040000 50968 
ewiS = 190000 5o9s¢ 
Swe = 000004 51188 
Sw = 000010 B1i7e 
ew4 == 000020 5116s 
SWS = OOOD40 51158 
ewe = 000100 51148 
Sw? = 000200 51138 
Swe = O00400 51138 
SWS = 901000 51118 
S.ACLO= 000100 53448 
S"BRHM= 000100 33598 
S"BRKE= O40000 33018 
e"CART= OOO400 33618 
&"BcLo= 010000 33518 
5"DIB = 002000. 33778 
8° DOOR= 900200 33608 
5"DRA = OO0040 33308 
2-fevs 33358 7233-7309 
5: 5e : 35¢ S688 «10052 © 1005310116 
S. = 33458 10031 
S"FORM= 001000 33348 
S"FWUD = 002000 33638 
S"HOFL= 000200 33748 
S"HOHN= O00040 33588 6591 612 7365 
S"ICYL= 000040 33438 
S-1LF = 090400 Subs 
"LTmp= 020000 3808 
S"oAD= 010000 33658 
="MHD = 000400 33788 
e"NMOV= 010000 33738 
S"OFF = 002000 3335 
S"PAR = 001000 33478 9891 10368 
e"PIP = 020000 33308 9899 10094 
S"PLO = OO4000 33784 
2B? = pecoos sees 
— = * 
S"SECT= O00020 33718 a 
S°ExT = 002000 33468 ;: 
§-SPIN= 010000 33378 
Ca aS } 
s = 
2 FyPES DOONOD 33558 
E"UNLD= 040000 53678 < 
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§.UNS a 949000 3353 
~VWW = 000100 32318 
S.wCLK= 000040 33728 
-WGAT= 900100 33738 
.WLE = 004000 33438 
RL = 33368 7241 7326 
. XDOK= 33578 
“XERR= 001 33768 
50 OOSESE 3797s S17S Sue? Séé2 
$1 D05660 s79se 5179 ssS4GB = S63 
52 oosees 37998 65183 «5461 4= «S658 
33 DOSES 38008 5183 S462 5659 
ITve= 000014 21538 
TCONHI 03156 3s 
TCONLS 003154 3348 
TELDRY O14616 4881-4889 «4 4957 «S00! sO14 
TKVEC = 21608 44777 ##4“778% #62708 
TLS 10213 43638 5058 5103 
TOPROC O44712 9063 9230 930s 
TROEK = pees: siete 6401# 64 6412 &629% 
TRAPVEs poses 21598 47278 4728 32+ 
TRKCHK 034204 a) 
TRKNLK 01054] # 5190 
TRNSFR 1g 742 ss220« S826 
TRIVEC= 14 ists 
Teton cect 3eE88 Seas sy32% 6089 
2 8 + + 
TSTLST Boeeie Be 3788 5074 
TSTMDS 010007 43378 5036 
TST™SG OS6672 8973 116478 
TsTl 020002 csi4s 
me Bue =| Bm 
| TET 021762 5781 5Seess 
| TST 022332 5969 s« Ske 
| TST 022636 £970 6=s-s«&0498 
TWOTOS= 002000 42378 9231 9551 
|T 013027 46368 6475 
YPESF O37642 S481 85778 
| TYPOS = 104405 55725639 be0L 116398 
= 10440] 576 G768 896-476 4772 
s2ct 4 wEiS 4697 
5036 4 
ciso)0Cs«#SS4 ~=s«dSis7~—s«*S 158 
4 62373 74 
| S423 siSH74—Ss—‘«‘éSSGSCtété«*S G1” 
7 ~=§29] 


EEE ee 
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es9s 899%si889) 002 «Ss «003s 00S 90194 Ses «2S 9024 = 8039S sD 
i 1108) 11148 122. 1125011258 11343116388 
TYPERR 041300 S42e 1125 
003114 36598 
TYPLST 016370 5170 © S20Se 
TYPMAN 011600 45138 6323 | 
TYPMNOD 011537 45078 , 
TYPOC = 104402 8593 9599 8603 9968 8999 201 9021 116260 
TYPON = 104404 ses 116388 
TYPOS = 104403 celg. S619 BSH 7SHL«=—7S4GSCsC7S92—s«7597~—s«WS7S—sL16378 
TYPPAT 032720 Sous 75688 = 7644 
TYPPRM 032640 Se0e «52890 75638 
TYSTST 032604 5061 5108 76378 
T.ASOF 003004 3Sc2e8 6164 98568 9857 9881 99268 9927 10006 10007 10013 10044 10078 10096 
10110 10261* 10523* 10524 
T.BA 002776 3559# 1007S 0257s 
7:051 002770 35548 6158 6161 9801* 9853" 9854 9867 878% 9911" 9913 9919  9948* 99708 
9972 1 10027# 10041" 10071" 10072 10083" 10107* 10153* 10154 10194 10198" 10199 
1020] 10205 10214 10254* 10301* 10302 10342* 10349 10356* 10363« 105i7# 10518 10520 
T.cS2 002772 35568 S77ge 9760 97 9798 9810 goace 9940 «= 9876 «= 9990 «10073 «10195 
10196* 10197 10207 10216 10255* 
T.DA 003000 35608 10258 
DB 003024 35718 : 
T:D¢ 003002 35618 10077 © 102628 
T:D5 003010 35658 Se04e 9805 10080 10259% 
TER BOs00e He 613% 9816 9979 10079 10218 10260 
tines boa0i9 35678 5078 9888 ©9899 1009510052 © 10084 10116 1OabYe 10948 10352 1035910366 
T:MRS 003016 35688 9691 9951 10030 [0265* 10346 10353 10360 10367 10368 
T.PAT 003022 35708 10267% ; 
T:POS 0032020 3565¢ 1066s , 
T:WOR 002774 35588 10074 102Sbe 
UBMPRS 003134 36758 5753 S841 S929 6894" 6919 7036 8149 8378 9893 
UEXATT= 000010 34468 9438 4©—- S62 
UFE = OOO4O0 ® 9214 92200 9795 9873 10216 10586 
UNLOAD= 000107 32028 7361 10467 
UNLOD 011433 44938 6603" 6619s 
UNS = 32908 9300 
UPE = Q20000 3678 S202 9810 9976 10816 
VERIFY 011434 W948 G347* 6406 s4ele 6476" 64928 6501 6606 6621 
VFHOSW= 000002 36818 
MAITaR Gaede EWOB, «64297361 
8 
WCORSW= 900004 3 
WE = Q40000 32688 S6E9 S414 9810 9976 10216 i 
WCEFLG 003131 36728 5505" 5590 Se7se e533% 8535  eSS0* esse a5tee 6738% s74ex 
teers bioees wo ee 
WOSKFR O0SSbe 37408 8011 8080 8136 8301 8343 9359 863% e682  s710* 8S7lls 
WHOS = Q0000! 36808 
WLE = O04000 32678 929% S816 9962 
WORDSP 013434 WES2ee 7589 
WRCKHD 021056 ssey Sb69e 


5741 5821 S916 5993 6115 8277 10539 


" 


: 
nu 7 
B88 
Sur 
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WRTCHK= 000131 ~~ 32lle S583 5999 6122 7924 se82 10536 
WRIGAT= 040000 32258 
TLOK OO74 42938 7246 
WRTSEC sS95-$5390Cf's«iSS4S~—i‘éSPELN 
W.ORVY 003104 36518 $249" 9710e 9625* 9851# 9903 9918% 9931* 945* 9993" 10060* i00ES* 1009G¢ 
101208 1039i# 10440% 10503« 10506% 10S27* 10579* 10597 
W.MILI 993050 36048 9705 10671 
i. MIN 36208 § 10503 
W.MTIM 903046 36038 9703%  9705« 
W.SEC  0030S2 36178 10440 
W.TIME 003070 36268 S2S2e S706 97128 3824s S8S2e 9902% 9917% 9930 9946% 9992% 10059* 1o0bes 
10097 10115* 10390% 10439* 10S26* 10578* 10596 
WiavcH paeaeo 23 ge aod Soe pert 10S22 10569 
W. SEC Boscen 36198 ass Bee 10506 
XDPSAV O0sS40 37368 5S710e S7ile 5787% S78S* S87S* S876e 70932 7094 7120 
XDPSVD 003125 36688 4756 47995 5714" 5791% 5879* 7095 8235+ 
XDP1 O30556 7083 70898 N 
XDP2 030624 7087 7080 #71028 7109 #7140 
XDP3 030650 70%  7iile 
XDP4 030630 7098 40s 7104s 
XOVLAD 003124 36678 5S713# 5S790% Se7a* 7085* 98229 
XXDPAD 005536 37358 467059 7063 7064s 7065* 7092 
003107 36548 
SAPTHD 001000 2243s 22498 
SASTAT= seeee4 U 11459 =11474 
SATYC OSS766 11430 =-:114328 
SaTyl O55742 114288 
SaTy3 055750 10819 114298 
$aTY4Y 055760 11263 -1143i8 
SAUTOB 001134 22838 
SBASE 001374 23908 4803 
SBDADR OOllee 22788 
SEDDAT O01126 eee 
SPELL 001310 e34ie 6448 6709 11250 11282 
SCHARC 053530 10836 10853 10862% 108678 
SCKSWR= #8eeee LJ 11642 
SONTAG 001100 8 4716 4717 4? 4731 : 4732 4733 6221 6222 6230 623% #6237 $238 
$CMl = 23008 230is 23038 23048 23058 23068 23078 23088 23098 2310s 
S3lle 23128 23138 23148 23158 23168 23178 23188 23198 23208 23218 23228 23238 
® 23258 23068 232078 23288 23098 23308 
SCM2 = 000100 88 23008 22018 23028 22038 23048 23058 23068 23078 2308% 23098 23108 
S3ile 23128 23128 23148 23158 23168 23178 23188 23198 23208 23218 23228 2323s 
2 3268 423278 23088 23098 23308 
$CM3 = OO0040 22968 «©2298 ‘i 
$om4 = 000011 23308 23318 23328 23338 23348 223358 23368 23378 23388 23398 
SCNTLG 05532! 113208 
SCNTLU 55214 113198 
SCORE Ose4is 11511 115388 
SCPLOP O01246 23t48 
SCRLF O01315 - 23438 #4848 4918 SObe S209 Sexe S640 6766 6840 6841 7513 7518 7758 
7218 7ei B38 13539 18304 8972 8982 98964 8992 8995 9005 9028 9034 
Sherk 050775 ttter tier’ 1229 
$0620 «054072 110148 
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$0820 053752 
SOECVL OS54252 11016 
CT 001330 23558 
VM a8 e3 
0236 1 61 
0S4 lil 
SENDAD 023600 
SENDCT O23546 4731 
SENOMG 023617 6199 
SEN DoisHo eat 
SENVM 1341 23618 
SE OP 3474 6053 
SEOPCT bea 40 47318 
L 
g Belite esozs 
SERRPC lll 305 
(58 
SERRTE Bb 80g e308 
afew sica8 
SETABL 001340 22598 
SETEND 001400 2255 
SFATAL 001322 23528 
SFFLG 11428 
SFILLC 1156 3 
ae o01155 22938 
S$GDADR 001120 22778 
$GDDAT 001124 22798 
$GET42 023570 62038 
SGTSWR= #22284 1164! 
SHD = o00000 2030 
SHI8TS 001000 22508 
SHINUM OS2246 47938 
| SHIOCT OS3146 5309 
| SICNT 001104 22708 
SINTAG 001135 2284s 
ITEMB 001114 748 
TNEX 410 11 
TOUT 406 il 
SKT11  OS6246 $730 
ae 131 eee 
LG 11469# 
SLONUM 053250 4794% 
| SLPADR 001106 22718 
| SLPERR 001110 227e8 
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